1 '------------------------------------------------------------------------------
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:4.0.30319.42000
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict Off
12 Option Explicit On
13
14
15
16 '''<summary>
17 '''Represents a strongly typed in-memory cache of data.
18 '''</summary>
19 <Global.System.Serializable(), _
20 Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21 Global.System.ComponentModel.ToolboxItem(true), _
22 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
23 Global.System.Xml.Serialization.XmlRootAttribute("MainDBDataSet"), _
24 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
25 Partial Public Class MainDBDataSet
26 Inherits Global.System.Data.DataSet
27
28 Private tableAdmin As AdminDataTable
29
30 Private tableStudent As StudentDataTable
31
32 Private tableQues As QuesDataTable
33
34 Private tableResult As ResultDataTable
35
36 Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
37
38 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
39 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
40 Public Sub New()
41 MyBase.New
42 Me.BeginInit
43 Me.InitClass
44 Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
45 AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
46 AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
47 Me.EndInit
48 End Sub
49
50 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
51 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
52 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
53 MyBase.New(info, context, false)
54 If (Me.IsBinarySerialized(info, context) = true) Then
55 Me.InitVars(false)
56 Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
57 AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
58 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
59 Return
60 End If
61 Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
62 If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
63 Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
64 ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
65 If (Not (ds.Tables("Admin")) Is Nothing) Then
66 MyBase.Tables.Add(New AdminDataTable(ds.Tables("Admin")))
67 End If
68 If (Not (ds.Tables("Student")) Is Nothing) Then
69 MyBase.Tables.Add(New StudentDataTable(ds.Tables("Student")))
70 End If
71 If (Not (ds.Tables("Ques")) Is Nothing) Then
72 MyBase.Tables.Add(New QuesDataTable(ds.Tables("Ques")))
73 End If
74 If (Not (ds.Tables("Result")) Is Nothing) Then
75 MyBase.Tables.Add(New ResultDataTable(ds.Tables("Result")))
76 End If
77 Me.DataSetName = ds.DataSetName
78 Me.Prefix = ds.Prefix
79 Me.Namespace = ds.Namespace
80 Me.Locale = ds.Locale
81 Me.CaseSensitive = ds.CaseSensitive
82 Me.EnforceConstraints = ds.EnforceConstraints
83 Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
84 Me.InitVars
85 Else
86 Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
87 End If
88 Me.GetSerializationData(info, context)
89 Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
90 AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
91 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
92 End Sub
93
94 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
95 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
96 Global.System.ComponentModel.Browsable(false), _
97 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
98 Public ReadOnly Property Admin() As AdminDataTable
99 Get
100 Return Me.tableAdmin
101 End Get
102 End Property
103
104 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
105 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
106 Global.System.ComponentModel.Browsable(false), _
107 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
108 Public ReadOnly Property Student() As StudentDataTable
109 Get
110 Return Me.tableStudent
111 End Get
112 End Property
113
114 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
115 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
116 Global.System.ComponentModel.Browsable(false), _
117 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
118 Public ReadOnly Property Ques() As QuesDataTable
119 Get
120 Return Me.tableQues
121 End Get
122 End Property
123
124 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
125 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
126 Global.System.ComponentModel.Browsable(false), _
127 Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
128 Public ReadOnly Property Result() As ResultDataTable
129 Get
130 Return Me.tableResult
131 End Get
132 End Property
133
134 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
135 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
136 Global.System.ComponentModel.BrowsableAttribute(true), _
137 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
138 Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
139 Get
140 Return Me._schemaSerializationMode
141 End Get
142 Set
143 Me._schemaSerializationMode = value
144 End Set
145 End Property
146
147 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
148 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
149 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
150 Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
151 Get
152 Return MyBase.Tables
153 End Get
154 End Property
155
156 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
157 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
158 Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
159 Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
160 Get
161 Return MyBase.Relations
162 End Get
163 End Property
164
165 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
166 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
167 Protected Overrides Sub InitializeDerivedDataSet()
168 Me.BeginInit
169 Me.InitClass
170 Me.EndInit
171 End Sub
172
173 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
174 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
175 Public Overrides Function Clone() As Global.System.Data.DataSet
176 Dim cln As MainDBDataSet = CType(MyBase.Clone,MainDBDataSet)
177 cln.InitVars
178 cln.SchemaSerializationMode = Me.SchemaSerializationMode
179 Return cln
180 End Function
181
182 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
183 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
184 Protected Overrides Function ShouldSerializeTables() As Boolean
185 Return false
186 End Function
187
188 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
189 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
190 Protected Overrides Function ShouldSerializeRelations() As Boolean
191 Return false
192 End Function
193
194 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
195 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
196 Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
197 If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
198 Me.Reset
199 Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
200 ds.ReadXml(reader)
201 If (Not (ds.Tables("Admin")) Is Nothing) Then
202 MyBase.Tables.Add(New AdminDataTable(ds.Tables("Admin")))
203 End If
204 If (Not (ds.Tables("Student")) Is Nothing) Then
205 MyBase.Tables.Add(New StudentDataTable(ds.Tables("Student")))
206 End If
207 If (Not (ds.Tables("Ques")) Is Nothing) Then
208 MyBase.Tables.Add(New QuesDataTable(ds.Tables("Ques")))
209 End If
210 If (Not (ds.Tables("Result")) Is Nothing) Then
211 MyBase.Tables.Add(New ResultDataTable(ds.Tables("Result")))
212 End If
213 Me.DataSetName = ds.DataSetName
214 Me.Prefix = ds.Prefix
215 Me.Namespace = ds.Namespace
216 Me.Locale = ds.Locale
217 Me.CaseSensitive = ds.CaseSensitive
218 Me.EnforceConstraints = ds.EnforceConstraints
219 Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
220 Me.InitVars
221 Else
222 Me.ReadXml(reader)
223 Me.InitVars
224 End If
225 End Sub
226
227 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
228 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
229 Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
230 Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
231 Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
232 stream.Position = 0
233 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
234 End Function
235
236 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
237 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
238 Friend Overloads Sub InitVars()
239 Me.InitVars(true)
240 End Sub
241
242 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
243 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
244 Friend Overloads Sub InitVars(ByVal initTable As Boolean)
245 Me.tableAdmin = CType(MyBase.Tables("Admin"),AdminDataTable)
246 If (initTable = true) Then
247 If (Not (Me.tableAdmin) Is Nothing) Then
248 Me.tableAdmin.InitVars
249 End If
250 End If
251 Me.tableStudent = CType(MyBase.Tables("Student"),StudentDataTable)
252 If (initTable = true) Then
253 If (Not (Me.tableStudent) Is Nothing) Then
254 Me.tableStudent.InitVars
255 End If
256 End If
257 Me.tableQues = CType(MyBase.Tables("Ques"),QuesDataTable)
258 If (initTable = true) Then
259 If (Not (Me.tableQues) Is Nothing) Then
260 Me.tableQues.InitVars
261 End If
262 End If
263 Me.tableResult = CType(MyBase.Tables("Result"),ResultDataTable)
264 If (initTable = true) Then
265 If (Not (Me.tableResult) Is Nothing) Then
266 Me.tableResult.InitVars
267 End If
268 End If
269 End Sub
270
271 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
272 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
273 Private Sub InitClass()
274 Me.DataSetName = "MainDBDataSet"
275 Me.Prefix = ""
276 Me.Namespace = "http://tempuri.org/MainDBDataSet.xsd"
277 Me.EnforceConstraints = true
278 Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
279 Me.tableAdmin = New AdminDataTable()
280 MyBase.Tables.Add(Me.tableAdmin)
281 Me.tableStudent = New StudentDataTable()
282 MyBase.Tables.Add(Me.tableStudent)
283 Me.tableQues = New QuesDataTable()
284 MyBase.Tables.Add(Me.tableQues)
285 Me.tableResult = New ResultDataTable()
286 MyBase.Tables.Add(Me.tableResult)
287 End Sub
288
289 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
290 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
291 Private Function ShouldSerializeAdmin() As Boolean
292 Return false
293 End Function
294
295 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
296 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
297 Private Function ShouldSerializeStudent() As Boolean
298 Return false
299 End Function
300
301 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
302 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
303 Private Function ShouldSerializeQues() As Boolean
304 Return false
305 End Function
306
307 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
308 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
309 Private Function ShouldSerializeResult() As Boolean
310 Return false
311 End Function
312
313 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
314 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
315 Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
316 If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
317 Me.InitVars
318 End If
319 End Sub
320
321 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
322 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
323 Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
324 Dim ds As MainDBDataSet = New MainDBDataSet()
325 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
326 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
327 Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
328 any.Namespace = ds.Namespace
329 sequence.Items.Add(any)
330 type.Particle = sequence
331 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
332 If xs.Contains(dsSchema.TargetNamespace) Then
333 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
334 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
335 Try
336 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
337 dsSchema.Write(s1)
338 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
339 Do While schemas.MoveNext
340 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
341 s2.SetLength(0)
342 schema.Write(s2)
343 If (s1.Length = s2.Length) Then
344 s1.Position = 0
345 s2.Position = 0
346
347 Do While ((s1.Position <> s1.Length) _
348 AndAlso (s1.ReadByte = s2.ReadByte))
349
350
351 Loop
352 If (s1.Position = s1.Length) Then
353 Return type
354 End If
355 End If
356
357 Loop
358 Finally
359 If (Not (s1) Is Nothing) Then
360 s1.Close
361 End If
362 If (Not (s2) Is Nothing) Then
363 s2.Close
364 End If
365 End Try
366 End If
367 xs.Add(dsSchema)
368 Return type
369 End Function
370
371 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
372 Public Delegate Sub AdminRowChangeEventHandler(ByVal sender As Object, ByVal e As AdminRowChangeEvent)
373
374 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
375 Public Delegate Sub StudentRowChangeEventHandler(ByVal sender As Object, ByVal e As StudentRowChangeEvent)
376
377 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
378 Public Delegate Sub QuesRowChangeEventHandler(ByVal sender As Object, ByVal e As QuesRowChangeEvent)
379
380 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
381 Public Delegate Sub ResultRowChangeEventHandler(ByVal sender As Object, ByVal e As ResultRowChangeEvent)
382
383 '''<summary>
384 '''Represents the strongly named DataTable class.
385 '''</summary>
386 <Global.System.Serializable(), _
387 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
388 Partial Public Class AdminDataTable
389 Inherits Global.System.Data.TypedTableBase(Of AdminRow)
390
391 Private columnID As Global.System.Data.DataColumn
392
393 Private columnFull_Name As Global.System.Data.DataColumn
394
395 Private columnSubject As Global.System.Data.DataColumn
396
397 Private columnMobile As Global.System.Data.DataColumn
398
399 Private columnEmail As Global.System.Data.DataColumn
400
401 Private columnPass As Global.System.Data.DataColumn
402
403 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
404 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
405 Public Sub New()
406 MyBase.New
407 Me.TableName = "Admin"
408 Me.BeginInit
409 Me.InitClass
410 Me.EndInit
411 End Sub
412
413 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
414 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
415 Friend Sub New(ByVal table As Global.System.Data.DataTable)
416 MyBase.New
417 Me.TableName = table.TableName
418 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
419 Me.CaseSensitive = table.CaseSensitive
420 End If
421 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
422 Me.Locale = table.Locale
423 End If
424 If (table.Namespace <> table.DataSet.Namespace) Then
425 Me.Namespace = table.Namespace
426 End If
427 Me.Prefix = table.Prefix
428 Me.MinimumCapacity = table.MinimumCapacity
429 End Sub
430
431 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
432 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
433 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
434 MyBase.New(info, context)
435 Me.InitVars
436 End Sub
437
438 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
439 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
440 Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
441 Get
442 Return Me.columnID
443 End Get
444 End Property
445
446 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
447 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
448 Public ReadOnly Property Full_NameColumn() As Global.System.Data.DataColumn
449 Get
450 Return Me.columnFull_Name
451 End Get
452 End Property
453
454 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
455 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
456 Public ReadOnly Property SubjectColumn() As Global.System.Data.DataColumn
457 Get
458 Return Me.columnSubject
459 End Get
460 End Property
461
462 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
463 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
464 Public ReadOnly Property MobileColumn() As Global.System.Data.DataColumn
465 Get
466 Return Me.columnMobile
467 End Get
468 End Property
469
470 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
471 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
472 Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
473 Get
474 Return Me.columnEmail
475 End Get
476 End Property
477
478 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
479 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
480 Public ReadOnly Property PassColumn() As Global.System.Data.DataColumn
481 Get
482 Return Me.columnPass
483 End Get
484 End Property
485
486 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
487 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
488 Global.System.ComponentModel.Browsable(false)> _
489 Public ReadOnly Property Count() As Integer
490 Get
491 Return Me.Rows.Count
492 End Get
493 End Property
494
495 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
496 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
497 Public Default ReadOnly Property Item(ByVal index As Integer) As AdminRow
498 Get
499 Return CType(Me.Rows(index),AdminRow)
500 End Get
501 End Property
502
503 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
504 Public Event AdminRowChanging As AdminRowChangeEventHandler
505
506 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
507 Public Event AdminRowChanged As AdminRowChangeEventHandler
508
509 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
510 Public Event AdminRowDeleting As AdminRowChangeEventHandler
511
512 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
513 Public Event AdminRowDeleted As AdminRowChangeEventHandler
514
515 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
516 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
517 Public Overloads Sub AddAdminRow(ByVal row As AdminRow)
518 Me.Rows.Add(row)
519 End Sub
520
521 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
522 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
523 Public Overloads Function AddAdminRow(ByVal ID As String, ByVal Full_Name As String, ByVal Subject As String, ByVal Mobile As Long, ByVal Email As String, ByVal Pass As String) As AdminRow
524 Dim rowAdminRow As AdminRow = CType(Me.NewRow,AdminRow)
525 Dim columnValuesArray() As Object = New Object() {ID, Full_Name, Subject, Mobile, Email, Pass}
526 rowAdminRow.ItemArray = columnValuesArray
527 Me.Rows.Add(rowAdminRow)
528 Return rowAdminRow
529 End Function
530
531 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
532 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
533 Public Function FindByID(ByVal ID As String) As AdminRow
534 Return CType(Me.Rows.Find(New Object() {ID}),AdminRow)
535 End Function
536
537 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
538 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
539 Public Overrides Function Clone() As Global.System.Data.DataTable
540 Dim cln As AdminDataTable = CType(MyBase.Clone,AdminDataTable)
541 cln.InitVars
542 Return cln
543 End Function
544
545 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
546 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
547 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
548 Return New AdminDataTable()
549 End Function
550
551 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
552 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
553 Friend Sub InitVars()
554 Me.columnID = MyBase.Columns("ID")
555 Me.columnFull_Name = MyBase.Columns("Full Name")
556 Me.columnSubject = MyBase.Columns("Subject")
557 Me.columnMobile = MyBase.Columns("Mobile")
558 Me.columnEmail = MyBase.Columns("Email")
559 Me.columnPass = MyBase.Columns("Pass")
560 End Sub
561
562 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
563 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
564 Private Sub InitClass()
565 Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
566 MyBase.Columns.Add(Me.columnID)
567 Me.columnFull_Name = New Global.System.Data.DataColumn("Full Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
568 MyBase.Columns.Add(Me.columnFull_Name)
569 Me.columnSubject = New Global.System.Data.DataColumn("Subject", GetType(String), Nothing, Global.System.Data.MappingType.Element)
570 MyBase.Columns.Add(Me.columnSubject)
571 Me.columnMobile = New Global.System.Data.DataColumn("Mobile", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
572 MyBase.Columns.Add(Me.columnMobile)
573 Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
574 MyBase.Columns.Add(Me.columnEmail)
575 Me.columnPass = New Global.System.Data.DataColumn("Pass", GetType(String), Nothing, Global.System.Data.MappingType.Element)
576 MyBase.Columns.Add(Me.columnPass)
577 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
578 Me.columnID.AllowDBNull = false
579 Me.columnID.Unique = true
580 Me.columnFull_Name.MaxLength = 255
581 Me.columnSubject.MaxLength = 255
582 Me.columnEmail.MaxLength = 255
583 Me.columnPass.MaxLength = 30
584 End Sub
585
586 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
587 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
588 Public Function NewAdminRow() As AdminRow
589 Return CType(Me.NewRow,AdminRow)
590 End Function
591
592 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
593 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
594 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
595 Return New AdminRow(builder)
596 End Function
597
598 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
599 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
600 Protected Overrides Function GetRowType() As Global.System.Type
601 Return GetType(AdminRow)
602 End Function
603
604 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
605 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
606 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
607 MyBase.OnRowChanged(e)
608 If (Not (Me.AdminRowChangedEvent) Is Nothing) Then
609 RaiseEvent AdminRowChanged(Me, New AdminRowChangeEvent(CType(e.Row,AdminRow), e.Action))
610 End If
611 End Sub
612
613 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
614 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
615 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
616 MyBase.OnRowChanging(e)
617 If (Not (Me.AdminRowChangingEvent) Is Nothing) Then
618 RaiseEvent AdminRowChanging(Me, New AdminRowChangeEvent(CType(e.Row,AdminRow), e.Action))
619 End If
620 End Sub
621
622 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
623 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
624 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
625 MyBase.OnRowDeleted(e)
626 If (Not (Me.AdminRowDeletedEvent) Is Nothing) Then
627 RaiseEvent AdminRowDeleted(Me, New AdminRowChangeEvent(CType(e.Row,AdminRow), e.Action))
628 End If
629 End Sub
630
631 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
632 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
633 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
634 MyBase.OnRowDeleting(e)
635 If (Not (Me.AdminRowDeletingEvent) Is Nothing) Then
636 RaiseEvent AdminRowDeleting(Me, New AdminRowChangeEvent(CType(e.Row,AdminRow), e.Action))
637 End If
638 End Sub
639
640 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
641 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
642 Public Sub RemoveAdminRow(ByVal row As AdminRow)
643 Me.Rows.Remove(row)
644 End Sub
645
646 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
647 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
648 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
649 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
650 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
651 Dim ds As MainDBDataSet = New MainDBDataSet()
652 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
653 any1.Namespace = "http://www.w3.org/2001/XMLSchema"
654 any1.MinOccurs = New Decimal(0)
655 any1.MaxOccurs = Decimal.MaxValue
656 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
657 sequence.Items.Add(any1)
658 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
659 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
660 any2.MinOccurs = New Decimal(1)
661 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
662 sequence.Items.Add(any2)
663 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
664 attribute1.Name = "namespace"
665 attribute1.FixedValue = ds.Namespace
666 type.Attributes.Add(attribute1)
667 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
668 attribute2.Name = "tableTypeName"
669 attribute2.FixedValue = "AdminDataTable"
670 type.Attributes.Add(attribute2)
671 type.Particle = sequence
672 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
673 If xs.Contains(dsSchema.TargetNamespace) Then
674 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
675 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
676 Try
677 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
678 dsSchema.Write(s1)
679 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
680 Do While schemas.MoveNext
681 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
682 s2.SetLength(0)
683 schema.Write(s2)
684 If (s1.Length = s2.Length) Then
685 s1.Position = 0
686 s2.Position = 0
687
688 Do While ((s1.Position <> s1.Length) _
689 AndAlso (s1.ReadByte = s2.ReadByte))
690
691
692 Loop
693 If (s1.Position = s1.Length) Then
694 Return type
695 End If
696 End If
697
698 Loop
699 Finally
700 If (Not (s1) Is Nothing) Then
701 s1.Close
702 End If
703 If (Not (s2) Is Nothing) Then
704 s2.Close
705 End If
706 End Try
707 End If
708 xs.Add(dsSchema)
709 Return type
710 End Function
711 End Class
712
713 '''<summary>
714 '''Represents the strongly named DataTable class.
715 '''</summary>
716 <Global.System.Serializable(), _
717 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
718 Partial Public Class StudentDataTable
719 Inherits Global.System.Data.TypedTableBase(Of StudentRow)
720
721 Private columnRollNo As Global.System.Data.DataColumn
722
723 Private columnFull_Name As Global.System.Data.DataColumn
724
725 Private columnDept As Global.System.Data.DataColumn
726
727 Private columnCurrent_Year As Global.System.Data.DataColumn
728
729 Private columnMob As Global.System.Data.DataColumn
730
731 Private columnEmail As Global.System.Data.DataColumn
732
733 Private columnPassword As Global.System.Data.DataColumn
734
735 Private columnTest_Date As Global.System.Data.DataColumn
736
737 Private columnhour As Global.System.Data.DataColumn
738
739 Private columnmin As Global.System.Data.DataColumn
740
741 Private columnsec As Global.System.Data.DataColumn
742
743 Private columnTotal_Ques As Global.System.Data.DataColumn
744
745 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
746 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
747 Public Sub New()
748 MyBase.New
749 Me.TableName = "Student"
750 Me.BeginInit
751 Me.InitClass
752 Me.EndInit
753 End Sub
754
755 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
756 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
757 Friend Sub New(ByVal table As Global.System.Data.DataTable)
758 MyBase.New
759 Me.TableName = table.TableName
760 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
761 Me.CaseSensitive = table.CaseSensitive
762 End If
763 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
764 Me.Locale = table.Locale
765 End If
766 If (table.Namespace <> table.DataSet.Namespace) Then
767 Me.Namespace = table.Namespace
768 End If
769 Me.Prefix = table.Prefix
770 Me.MinimumCapacity = table.MinimumCapacity
771 End Sub
772
773 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
774 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
775 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
776 MyBase.New(info, context)
777 Me.InitVars
778 End Sub
779
780 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
781 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
782 Public ReadOnly Property RollNoColumn() As Global.System.Data.DataColumn
783 Get
784 Return Me.columnRollNo
785 End Get
786 End Property
787
788 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
789 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
790 Public ReadOnly Property Full_NameColumn() As Global.System.Data.DataColumn
791 Get
792 Return Me.columnFull_Name
793 End Get
794 End Property
795
796 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
797 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
798 Public ReadOnly Property DeptColumn() As Global.System.Data.DataColumn
799 Get
800 Return Me.columnDept
801 End Get
802 End Property
803
804 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
805 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
806 Public ReadOnly Property Current_YearColumn() As Global.System.Data.DataColumn
807 Get
808 Return Me.columnCurrent_Year
809 End Get
810 End Property
811
812 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
813 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
814 Public ReadOnly Property MobColumn() As Global.System.Data.DataColumn
815 Get
816 Return Me.columnMob
817 End Get
818 End Property
819
820 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
821 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
822 Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
823 Get
824 Return Me.columnEmail
825 End Get
826 End Property
827
828 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
829 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
830 Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
831 Get
832 Return Me.columnPassword
833 End Get
834 End Property
835
836 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
837 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
838 Public ReadOnly Property Test_DateColumn() As Global.System.Data.DataColumn
839 Get
840 Return Me.columnTest_Date
841 End Get
842 End Property
843
844 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
845 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
846 Public ReadOnly Property hourColumn() As Global.System.Data.DataColumn
847 Get
848 Return Me.columnhour
849 End Get
850 End Property
851
852 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
853 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
854 Public ReadOnly Property minColumn() As Global.System.Data.DataColumn
855 Get
856 Return Me.columnmin
857 End Get
858 End Property
859
860 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
861 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
862 Public ReadOnly Property secColumn() As Global.System.Data.DataColumn
863 Get
864 Return Me.columnsec
865 End Get
866 End Property
867
868 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
869 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
870 Public ReadOnly Property Total_QuesColumn() As Global.System.Data.DataColumn
871 Get
872 Return Me.columnTotal_Ques
873 End Get
874 End Property
875
876 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
877 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
878 Global.System.ComponentModel.Browsable(false)> _
879 Public ReadOnly Property Count() As Integer
880 Get
881 Return Me.Rows.Count
882 End Get
883 End Property
884
885 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
886 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
887 Public Default ReadOnly Property Item(ByVal index As Integer) As StudentRow
888 Get
889 Return CType(Me.Rows(index),StudentRow)
890 End Get
891 End Property
892
893 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
894 Public Event StudentRowChanging As StudentRowChangeEventHandler
895
896 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
897 Public Event StudentRowChanged As StudentRowChangeEventHandler
898
899 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
900 Public Event StudentRowDeleting As StudentRowChangeEventHandler
901
902 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
903 Public Event StudentRowDeleted As StudentRowChangeEventHandler
904
905 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
906 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
907 Public Overloads Sub AddStudentRow(ByVal row As StudentRow)
908 Me.Rows.Add(row)
909 End Sub
910
911 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
912 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
913 Public Overloads Function AddStudentRow(ByVal RollNo As Integer, ByVal Full_Name As String, ByVal Dept As String, ByVal Current_Year As String, ByVal Mob As String, ByVal Email As String, ByVal Password As String, ByVal Test_Date As Date, ByVal hour As Integer, ByVal min As Integer, ByVal sec As Integer, ByVal Total_Ques As Integer) As StudentRow
914 Dim rowStudentRow As StudentRow = CType(Me.NewRow,StudentRow)
915 Dim columnValuesArray() As Object = New Object() {RollNo, Full_Name, Dept, Current_Year, Mob, Email, Password, Test_Date, hour, min, sec, Total_Ques}
916 rowStudentRow.ItemArray = columnValuesArray
917 Me.Rows.Add(rowStudentRow)
918 Return rowStudentRow
919 End Function
920
921 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
922 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
923 Public Function FindByRollNo(ByVal RollNo As Integer) As StudentRow
924 Return CType(Me.Rows.Find(New Object() {RollNo}),StudentRow)
925 End Function
926
927 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
928 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
929 Public Overrides Function Clone() As Global.System.Data.DataTable
930 Dim cln As StudentDataTable = CType(MyBase.Clone,StudentDataTable)
931 cln.InitVars
932 Return cln
933 End Function
934
935 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
936 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
937 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
938 Return New StudentDataTable()
939 End Function
940
941 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
942 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
943 Friend Sub InitVars()
944 Me.columnRollNo = MyBase.Columns("RollNo")
945 Me.columnFull_Name = MyBase.Columns("Full Name")
946 Me.columnDept = MyBase.Columns("Dept")
947 Me.columnCurrent_Year = MyBase.Columns("Current Year")
948 Me.columnMob = MyBase.Columns("Mob")
949 Me.columnEmail = MyBase.Columns("Email")
950 Me.columnPassword = MyBase.Columns("Password")
951 Me.columnTest_Date = MyBase.Columns("Test Date")
952 Me.columnhour = MyBase.Columns("hour")
953 Me.columnmin = MyBase.Columns("min")
954 Me.columnsec = MyBase.Columns("sec")
955 Me.columnTotal_Ques = MyBase.Columns("Total_Ques")
956 End Sub
957
958 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
959 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
960 Private Sub InitClass()
961 Me.columnRollNo = New Global.System.Data.DataColumn("RollNo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
962 MyBase.Columns.Add(Me.columnRollNo)
963 Me.columnFull_Name = New Global.System.Data.DataColumn("Full Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
964 MyBase.Columns.Add(Me.columnFull_Name)
965 Me.columnDept = New Global.System.Data.DataColumn("Dept", GetType(String), Nothing, Global.System.Data.MappingType.Element)
966 MyBase.Columns.Add(Me.columnDept)
967 Me.columnCurrent_Year = New Global.System.Data.DataColumn("Current Year", GetType(String), Nothing, Global.System.Data.MappingType.Element)
968 MyBase.Columns.Add(Me.columnCurrent_Year)
969 Me.columnMob = New Global.System.Data.DataColumn("Mob", GetType(String), Nothing, Global.System.Data.MappingType.Element)
970 MyBase.Columns.Add(Me.columnMob)
971 Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
972 MyBase.Columns.Add(Me.columnEmail)
973 Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element)
974 MyBase.Columns.Add(Me.columnPassword)
975 Me.columnTest_Date = New Global.System.Data.DataColumn("Test Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
976 MyBase.Columns.Add(Me.columnTest_Date)
977 Me.columnhour = New Global.System.Data.DataColumn("hour", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
978 MyBase.Columns.Add(Me.columnhour)
979 Me.columnmin = New Global.System.Data.DataColumn("min", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
980 MyBase.Columns.Add(Me.columnmin)
981 Me.columnsec = New Global.System.Data.DataColumn("sec", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
982 MyBase.Columns.Add(Me.columnsec)
983 Me.columnTotal_Ques = New Global.System.Data.DataColumn("Total_Ques", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
984 MyBase.Columns.Add(Me.columnTotal_Ques)
985 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRollNo}, true))
986 Me.columnRollNo.AllowDBNull = false
987 Me.columnRollNo.Unique = true
988 Me.columnFull_Name.MaxLength = 536870910
989 Me.columnDept.MaxLength = 255
990 Me.columnCurrent_Year.MaxLength = 255
991 Me.columnMob.MaxLength = 255
992 Me.columnEmail.MaxLength = 255
993 Me.columnPassword.MaxLength = 255
994 End Sub
995
996 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
997 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
998 Public Function NewStudentRow() As StudentRow
999 Return CType(Me.NewRow,StudentRow)
1000 End Function
1001
1002 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1003 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1004 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1005 Return New StudentRow(builder)
1006 End Function
1007
1008 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1009 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1010 Protected Overrides Function GetRowType() As Global.System.Type
1011 Return GetType(StudentRow)
1012 End Function
1013
1014 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1015 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1016 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1017 MyBase.OnRowChanged(e)
1018 If (Not (Me.StudentRowChangedEvent) Is Nothing) Then
1019 RaiseEvent StudentRowChanged(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
1020 End If
1021 End Sub
1022
1023 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1024 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1025 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1026 MyBase.OnRowChanging(e)
1027 If (Not (Me.StudentRowChangingEvent) Is Nothing) Then
1028 RaiseEvent StudentRowChanging(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
1029 End If
1030 End Sub
1031
1032 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1033 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1034 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1035 MyBase.OnRowDeleted(e)
1036 If (Not (Me.StudentRowDeletedEvent) Is Nothing) Then
1037 RaiseEvent StudentRowDeleted(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
1038 End If
1039 End Sub
1040
1041 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1042 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1043 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1044 MyBase.OnRowDeleting(e)
1045 If (Not (Me.StudentRowDeletingEvent) Is Nothing) Then
1046 RaiseEvent StudentRowDeleting(Me, New StudentRowChangeEvent(CType(e.Row,StudentRow), e.Action))
1047 End If
1048 End Sub
1049
1050 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1051 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1052 Public Sub RemoveStudentRow(ByVal row As StudentRow)
1053 Me.Rows.Remove(row)
1054 End Sub
1055
1056 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1057 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1058 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1059 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1060 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1061 Dim ds As MainDBDataSet = New MainDBDataSet()
1062 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1063 any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1064 any1.MinOccurs = New Decimal(0)
1065 any1.MaxOccurs = Decimal.MaxValue
1066 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1067 sequence.Items.Add(any1)
1068 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1069 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1070 any2.MinOccurs = New Decimal(1)
1071 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1072 sequence.Items.Add(any2)
1073 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1074 attribute1.Name = "namespace"
1075 attribute1.FixedValue = ds.Namespace
1076 type.Attributes.Add(attribute1)
1077 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1078 attribute2.Name = "tableTypeName"
1079 attribute2.FixedValue = "StudentDataTable"
1080 type.Attributes.Add(attribute2)
1081 type.Particle = sequence
1082 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1083 If xs.Contains(dsSchema.TargetNamespace) Then
1084 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1085 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1086 Try
1087 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1088 dsSchema.Write(s1)
1089 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1090 Do While schemas.MoveNext
1091 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1092 s2.SetLength(0)
1093 schema.Write(s2)
1094 If (s1.Length = s2.Length) Then
1095 s1.Position = 0
1096 s2.Position = 0
1097
1098 Do While ((s1.Position <> s1.Length) _
1099 AndAlso (s1.ReadByte = s2.ReadByte))
1100
1101
1102 Loop
1103 If (s1.Position = s1.Length) Then
1104 Return type
1105 End If
1106 End If
1107
1108 Loop
1109 Finally
1110 If (Not (s1) Is Nothing) Then
1111 s1.Close
1112 End If
1113 If (Not (s2) Is Nothing) Then
1114 s2.Close
1115 End If
1116 End Try
1117 End If
1118 xs.Add(dsSchema)
1119 Return type
1120 End Function
1121 End Class
1122
1123 '''<summary>
1124 '''Represents the strongly named DataTable class.
1125 '''</summary>
1126 <Global.System.Serializable(), _
1127 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1128 Partial Public Class QuesDataTable
1129 Inherits Global.System.Data.TypedTableBase(Of QuesRow)
1130
1131 Private columnQuestion As Global.System.Data.DataColumn
1132
1133 Private columnOpt1 As Global.System.Data.DataColumn
1134
1135 Private columnOpt2 As Global.System.Data.DataColumn
1136
1137 Private columnOpt3 As Global.System.Data.DataColumn
1138
1139 Private columnOpt4 As Global.System.Data.DataColumn
1140
1141 Private columnAnswer As Global.System.Data.DataColumn
1142
1143 Private columnQuesNo As Global.System.Data.DataColumn
1144
1145 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1146 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1147 Public Sub New()
1148 MyBase.New
1149 Me.TableName = "Ques"
1150 Me.BeginInit
1151 Me.InitClass
1152 Me.EndInit
1153 End Sub
1154
1155 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1156 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1157 Friend Sub New(ByVal table As Global.System.Data.DataTable)
1158 MyBase.New
1159 Me.TableName = table.TableName
1160 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1161 Me.CaseSensitive = table.CaseSensitive
1162 End If
1163 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1164 Me.Locale = table.Locale
1165 End If
1166 If (table.Namespace <> table.DataSet.Namespace) Then
1167 Me.Namespace = table.Namespace
1168 End If
1169 Me.Prefix = table.Prefix
1170 Me.MinimumCapacity = table.MinimumCapacity
1171 End Sub
1172
1173 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1174 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1175 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1176 MyBase.New(info, context)
1177 Me.InitVars
1178 End Sub
1179
1180 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1181 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1182 Public ReadOnly Property QuestionColumn() As Global.System.Data.DataColumn
1183 Get
1184 Return Me.columnQuestion
1185 End Get
1186 End Property
1187
1188 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1189 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1190 Public ReadOnly Property Opt1Column() As Global.System.Data.DataColumn
1191 Get
1192 Return Me.columnOpt1
1193 End Get
1194 End Property
1195
1196 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1197 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1198 Public ReadOnly Property Opt2Column() As Global.System.Data.DataColumn
1199 Get
1200 Return Me.columnOpt2
1201 End Get
1202 End Property
1203
1204 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1205 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1206 Public ReadOnly Property Opt3Column() As Global.System.Data.DataColumn
1207 Get
1208 Return Me.columnOpt3
1209 End Get
1210 End Property
1211
1212 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1213 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1214 Public ReadOnly Property Opt4Column() As Global.System.Data.DataColumn
1215 Get
1216 Return Me.columnOpt4
1217 End Get
1218 End Property
1219
1220 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1221 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1222 Public ReadOnly Property AnswerColumn() As Global.System.Data.DataColumn
1223 Get
1224 Return Me.columnAnswer
1225 End Get
1226 End Property
1227
1228 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1229 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1230 Public ReadOnly Property QuesNoColumn() As Global.System.Data.DataColumn
1231 Get
1232 Return Me.columnQuesNo
1233 End Get
1234 End Property
1235
1236 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1237 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1238 Global.System.ComponentModel.Browsable(false)> _
1239 Public ReadOnly Property Count() As Integer
1240 Get
1241 Return Me.Rows.Count
1242 End Get
1243 End Property
1244
1245 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1246 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1247 Public Default ReadOnly Property Item(ByVal index As Integer) As QuesRow
1248 Get
1249 Return CType(Me.Rows(index),QuesRow)
1250 End Get
1251 End Property
1252
1253 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1254 Public Event QuesRowChanging As QuesRowChangeEventHandler
1255
1256 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1257 Public Event QuesRowChanged As QuesRowChangeEventHandler
1258
1259 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1260 Public Event QuesRowDeleting As QuesRowChangeEventHandler
1261
1262 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1263 Public Event QuesRowDeleted As QuesRowChangeEventHandler
1264
1265 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1266 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1267 Public Overloads Sub AddQuesRow(ByVal row As QuesRow)
1268 Me.Rows.Add(row)
1269 End Sub
1270
1271 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1272 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1273 Public Overloads Function AddQuesRow(ByVal Question As String, ByVal Opt1 As String, ByVal Opt2 As String, ByVal Opt3 As String, ByVal Opt4 As String, ByVal Answer As String, ByVal QuesNo As Integer) As QuesRow
1274 Dim rowQuesRow As QuesRow = CType(Me.NewRow,QuesRow)
1275 Dim columnValuesArray() As Object = New Object() {Question, Opt1, Opt2, Opt3, Opt4, Answer, QuesNo}
1276 rowQuesRow.ItemArray = columnValuesArray
1277 Me.Rows.Add(rowQuesRow)
1278 Return rowQuesRow
1279 End Function
1280
1281 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1282 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1283 Public Overrides Function Clone() As Global.System.Data.DataTable
1284 Dim cln As QuesDataTable = CType(MyBase.Clone,QuesDataTable)
1285 cln.InitVars
1286 Return cln
1287 End Function
1288
1289 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1290 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1291 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1292 Return New QuesDataTable()
1293 End Function
1294
1295 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1296 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1297 Friend Sub InitVars()
1298 Me.columnQuestion = MyBase.Columns("Question")
1299 Me.columnOpt1 = MyBase.Columns("Opt1")
1300 Me.columnOpt2 = MyBase.Columns("Opt2")
1301 Me.columnOpt3 = MyBase.Columns("Opt3")
1302 Me.columnOpt4 = MyBase.Columns("Opt4")
1303 Me.columnAnswer = MyBase.Columns("Answer")
1304 Me.columnQuesNo = MyBase.Columns("QuesNo")
1305 End Sub
1306
1307 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1308 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1309 Private Sub InitClass()
1310 Me.columnQuestion = New Global.System.Data.DataColumn("Question", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1311 MyBase.Columns.Add(Me.columnQuestion)
1312 Me.columnOpt1 = New Global.System.Data.DataColumn("Opt1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1313 MyBase.Columns.Add(Me.columnOpt1)
1314 Me.columnOpt2 = New Global.System.Data.DataColumn("Opt2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1315 MyBase.Columns.Add(Me.columnOpt2)
1316 Me.columnOpt3 = New Global.System.Data.DataColumn("Opt3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1317 MyBase.Columns.Add(Me.columnOpt3)
1318 Me.columnOpt4 = New Global.System.Data.DataColumn("Opt4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1319 MyBase.Columns.Add(Me.columnOpt4)
1320 Me.columnAnswer = New Global.System.Data.DataColumn("Answer", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1321 MyBase.Columns.Add(Me.columnAnswer)
1322 Me.columnQuesNo = New Global.System.Data.DataColumn("QuesNo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1323 MyBase.Columns.Add(Me.columnQuesNo)
1324 Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQuesNo}, false))
1325 Me.columnQuestion.MaxLength = 536870910
1326 Me.columnOpt1.MaxLength = 255
1327 Me.columnOpt2.MaxLength = 255
1328 Me.columnOpt3.MaxLength = 255
1329 Me.columnOpt4.MaxLength = 255
1330 Me.columnAnswer.MaxLength = 255
1331 Me.columnQuesNo.Unique = true
1332 End Sub
1333
1334 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1335 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1336 Public Function NewQuesRow() As QuesRow
1337 Return CType(Me.NewRow,QuesRow)
1338 End Function
1339
1340 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1341 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1342 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1343 Return New QuesRow(builder)
1344 End Function
1345
1346 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1347 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1348 Protected Overrides Function GetRowType() As Global.System.Type
1349 Return GetType(QuesRow)
1350 End Function
1351
1352 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1353 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1354 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1355 MyBase.OnRowChanged(e)
1356 If (Not (Me.QuesRowChangedEvent) Is Nothing) Then
1357 RaiseEvent QuesRowChanged(Me, New QuesRowChangeEvent(CType(e.Row,QuesRow), e.Action))
1358 End If
1359 End Sub
1360
1361 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1362 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1363 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1364 MyBase.OnRowChanging(e)
1365 If (Not (Me.QuesRowChangingEvent) Is Nothing) Then
1366 RaiseEvent QuesRowChanging(Me, New QuesRowChangeEvent(CType(e.Row,QuesRow), e.Action))
1367 End If
1368 End Sub
1369
1370 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1371 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1372 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1373 MyBase.OnRowDeleted(e)
1374 If (Not (Me.QuesRowDeletedEvent) Is Nothing) Then
1375 RaiseEvent QuesRowDeleted(Me, New QuesRowChangeEvent(CType(e.Row,QuesRow), e.Action))
1376 End If
1377 End Sub
1378
1379 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1380 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1381 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1382 MyBase.OnRowDeleting(e)
1383 If (Not (Me.QuesRowDeletingEvent) Is Nothing) Then
1384 RaiseEvent QuesRowDeleting(Me, New QuesRowChangeEvent(CType(e.Row,QuesRow), e.Action))
1385 End If
1386 End Sub
1387
1388 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1389 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1390 Public Sub RemoveQuesRow(ByVal row As QuesRow)
1391 Me.Rows.Remove(row)
1392 End Sub
1393
1394 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1395 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1396 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1397 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1398 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1399 Dim ds As MainDBDataSet = New MainDBDataSet()
1400 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1401 any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1402 any1.MinOccurs = New Decimal(0)
1403 any1.MaxOccurs = Decimal.MaxValue
1404 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1405 sequence.Items.Add(any1)
1406 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1407 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1408 any2.MinOccurs = New Decimal(1)
1409 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1410 sequence.Items.Add(any2)
1411 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1412 attribute1.Name = "namespace"
1413 attribute1.FixedValue = ds.Namespace
1414 type.Attributes.Add(attribute1)
1415 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1416 attribute2.Name = "tableTypeName"
1417 attribute2.FixedValue = "QuesDataTable"
1418 type.Attributes.Add(attribute2)
1419 type.Particle = sequence
1420 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1421 If xs.Contains(dsSchema.TargetNamespace) Then
1422 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1423 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1424 Try
1425 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1426 dsSchema.Write(s1)
1427 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1428 Do While schemas.MoveNext
1429 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1430 s2.SetLength(0)
1431 schema.Write(s2)
1432 If (s1.Length = s2.Length) Then
1433 s1.Position = 0
1434 s2.Position = 0
1435
1436 Do While ((s1.Position <> s1.Length) _
1437 AndAlso (s1.ReadByte = s2.ReadByte))
1438
1439
1440 Loop
1441 If (s1.Position = s1.Length) Then
1442 Return type
1443 End If
1444 End If
1445
1446 Loop
1447 Finally
1448 If (Not (s1) Is Nothing) Then
1449 s1.Close
1450 End If
1451 If (Not (s2) Is Nothing) Then
1452 s2.Close
1453 End If
1454 End Try
1455 End If
1456 xs.Add(dsSchema)
1457 Return type
1458 End Function
1459 End Class
1460
1461 '''<summary>
1462 '''Represents the strongly named DataTable class.
1463 '''</summary>
1464 <Global.System.Serializable(), _
1465 Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1466 Partial Public Class ResultDataTable
1467 Inherits Global.System.Data.TypedTableBase(Of ResultRow)
1468
1469 Private columnRollNo As Global.System.Data.DataColumn
1470
1471 Private columnName As Global.System.Data.DataColumn
1472
1473 Private columnCurrent_Year As Global.System.Data.DataColumn
1474
1475 Private columnDept As Global.System.Data.DataColumn
1476
1477 Private columnTotal_Ques As Global.System.Data.DataColumn
1478
1479 Private columnAttempted_Ques As Global.System.Data.DataColumn
1480
1481 Private columnRight_Answers As Global.System.Data.DataColumn
1482
1483 Private columnMarks_Obtained As Global.System.Data.DataColumn
1484
1485 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1486 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1487 Public Sub New()
1488 MyBase.New
1489 Me.TableName = "Result"
1490 Me.BeginInit
1491 Me.InitClass
1492 Me.EndInit
1493 End Sub
1494
1495 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1496 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1497 Friend Sub New(ByVal table As Global.System.Data.DataTable)
1498 MyBase.New
1499 Me.TableName = table.TableName
1500 If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1501 Me.CaseSensitive = table.CaseSensitive
1502 End If
1503 If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1504 Me.Locale = table.Locale
1505 End If
1506 If (table.Namespace <> table.DataSet.Namespace) Then
1507 Me.Namespace = table.Namespace
1508 End If
1509 Me.Prefix = table.Prefix
1510 Me.MinimumCapacity = table.MinimumCapacity
1511 End Sub
1512
1513 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1514 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1515 Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1516 MyBase.New(info, context)
1517 Me.InitVars
1518 End Sub
1519
1520 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1521 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1522 Public ReadOnly Property RollNoColumn() As Global.System.Data.DataColumn
1523 Get
1524 Return Me.columnRollNo
1525 End Get
1526 End Property
1527
1528 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1529 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1530 Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
1531 Get
1532 Return Me.columnName
1533 End Get
1534 End Property
1535
1536 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1537 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1538 Public ReadOnly Property Current_YearColumn() As Global.System.Data.DataColumn
1539 Get
1540 Return Me.columnCurrent_Year
1541 End Get
1542 End Property
1543
1544 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1545 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1546 Public ReadOnly Property DeptColumn() As Global.System.Data.DataColumn
1547 Get
1548 Return Me.columnDept
1549 End Get
1550 End Property
1551
1552 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1553 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1554 Public ReadOnly Property Total_QuesColumn() As Global.System.Data.DataColumn
1555 Get
1556 Return Me.columnTotal_Ques
1557 End Get
1558 End Property
1559
1560 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1561 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1562 Public ReadOnly Property Attempted_QuesColumn() As Global.System.Data.DataColumn
1563 Get
1564 Return Me.columnAttempted_Ques
1565 End Get
1566 End Property
1567
1568 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1569 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1570 Public ReadOnly Property Right_AnswersColumn() As Global.System.Data.DataColumn
1571 Get
1572 Return Me.columnRight_Answers
1573 End Get
1574 End Property
1575
1576 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1577 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1578 Public ReadOnly Property Marks_ObtainedColumn() As Global.System.Data.DataColumn
1579 Get
1580 Return Me.columnMarks_Obtained
1581 End Get
1582 End Property
1583
1584 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1585 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1586 Global.System.ComponentModel.Browsable(false)> _
1587 Public ReadOnly Property Count() As Integer
1588 Get
1589 Return Me.Rows.Count
1590 End Get
1591 End Property
1592
1593 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1594 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1595 Public Default ReadOnly Property Item(ByVal index As Integer) As ResultRow
1596 Get
1597 Return CType(Me.Rows(index),ResultRow)
1598 End Get
1599 End Property
1600
1601 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1602 Public Event ResultRowChanging As ResultRowChangeEventHandler
1603
1604 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1605 Public Event ResultRowChanged As ResultRowChangeEventHandler
1606
1607 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1608 Public Event ResultRowDeleting As ResultRowChangeEventHandler
1609
1610 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1611 Public Event ResultRowDeleted As ResultRowChangeEventHandler
1612
1613 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1614 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1615 Public Overloads Sub AddResultRow(ByVal row As ResultRow)
1616 Me.Rows.Add(row)
1617 End Sub
1618
1619 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1620 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1621 Public Overloads Function AddResultRow(ByVal RollNo As Integer, ByVal Name As String, ByVal Current_Year As String, ByVal Dept As String, ByVal Total_Ques As Integer, ByVal Attempted_Ques As Integer, ByVal Right_Answers As Integer, ByVal Marks_Obtained As Integer) As ResultRow
1622 Dim rowResultRow As ResultRow = CType(Me.NewRow,ResultRow)
1623 Dim columnValuesArray() As Object = New Object() {RollNo, Name, Current_Year, Dept, Total_Ques, Attempted_Ques, Right_Answers, Marks_Obtained}
1624 rowResultRow.ItemArray = columnValuesArray
1625 Me.Rows.Add(rowResultRow)
1626 Return rowResultRow
1627 End Function
1628
1629 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1630 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1631 Public Overrides Function Clone() As Global.System.Data.DataTable
1632 Dim cln As ResultDataTable = CType(MyBase.Clone,ResultDataTable)
1633 cln.InitVars
1634 Return cln
1635 End Function
1636
1637 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1638 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1639 Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1640 Return New ResultDataTable()
1641 End Function
1642
1643 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1644 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1645 Friend Sub InitVars()
1646 Me.columnRollNo = MyBase.Columns("RollNo")
1647 Me.columnName = MyBase.Columns("Name")
1648 Me.columnCurrent_Year = MyBase.Columns("Current_Year")
1649 Me.columnDept = MyBase.Columns("Dept")
1650 Me.columnTotal_Ques = MyBase.Columns("Total_Ques")
1651 Me.columnAttempted_Ques = MyBase.Columns("Attempted_Ques")
1652 Me.columnRight_Answers = MyBase.Columns("Right_Answers")
1653 Me.columnMarks_Obtained = MyBase.Columns("Marks_Obtained")
1654 End Sub
1655
1656 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1657 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1658 Private Sub InitClass()
1659 Me.columnRollNo = New Global.System.Data.DataColumn("RollNo", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1660 MyBase.Columns.Add(Me.columnRollNo)
1661 Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1662 MyBase.Columns.Add(Me.columnName)
1663 Me.columnCurrent_Year = New Global.System.Data.DataColumn("Current_Year", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1664 Me.columnCurrent_Year.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Current_Year")
1665 Me.columnCurrent_Year.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "Current_YearColumn")
1666 Me.columnCurrent_Year.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnCurrent_Year")
1667 Me.columnCurrent_Year.ExtendedProperties.Add("Generator_UserColumnName", "Current_Year")
1668 MyBase.Columns.Add(Me.columnCurrent_Year)
1669 Me.columnDept = New Global.System.Data.DataColumn("Dept", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1670 MyBase.Columns.Add(Me.columnDept)
1671 Me.columnTotal_Ques = New Global.System.Data.DataColumn("Total_Ques", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1672 MyBase.Columns.Add(Me.columnTotal_Ques)
1673 Me.columnAttempted_Ques = New Global.System.Data.DataColumn("Attempted_Ques", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1674 MyBase.Columns.Add(Me.columnAttempted_Ques)
1675 Me.columnRight_Answers = New Global.System.Data.DataColumn("Right_Answers", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1676 MyBase.Columns.Add(Me.columnRight_Answers)
1677 Me.columnMarks_Obtained = New Global.System.Data.DataColumn("Marks_Obtained", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1678 MyBase.Columns.Add(Me.columnMarks_Obtained)
1679 Me.columnName.MaxLength = 255
1680 Me.columnCurrent_Year.MaxLength = 255
1681 Me.columnDept.MaxLength = 255
1682 End Sub
1683
1684 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1685 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1686 Public Function NewResultRow() As ResultRow
1687 Return CType(Me.NewRow,ResultRow)
1688 End Function
1689
1690 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1691 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1692 Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1693 Return New ResultRow(builder)
1694 End Function
1695
1696 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1697 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1698 Protected Overrides Function GetRowType() As Global.System.Type
1699 Return GetType(ResultRow)
1700 End Function
1701
1702 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1703 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1704 Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1705 MyBase.OnRowChanged(e)
1706 If (Not (Me.ResultRowChangedEvent) Is Nothing) Then
1707 RaiseEvent ResultRowChanged(Me, New ResultRowChangeEvent(CType(e.Row,ResultRow), e.Action))
1708 End If
1709 End Sub
1710
1711 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1712 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1713 Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1714 MyBase.OnRowChanging(e)
1715 If (Not (Me.ResultRowChangingEvent) Is Nothing) Then
1716 RaiseEvent ResultRowChanging(Me, New ResultRowChangeEvent(CType(e.Row,ResultRow), e.Action))
1717 End If
1718 End Sub
1719
1720 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1721 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1722 Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1723 MyBase.OnRowDeleted(e)
1724 If (Not (Me.ResultRowDeletedEvent) Is Nothing) Then
1725 RaiseEvent ResultRowDeleted(Me, New ResultRowChangeEvent(CType(e.Row,ResultRow), e.Action))
1726 End If
1727 End Sub
1728
1729 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1730 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1731 Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1732 MyBase.OnRowDeleting(e)
1733 If (Not (Me.ResultRowDeletingEvent) Is Nothing) Then
1734 RaiseEvent ResultRowDeleting(Me, New ResultRowChangeEvent(CType(e.Row,ResultRow), e.Action))
1735 End If
1736 End Sub
1737
1738 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1739 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1740 Public Sub RemoveResultRow(ByVal row As ResultRow)
1741 Me.Rows.Remove(row)
1742 End Sub
1743
1744 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1745 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1746 Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1747 Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1748 Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1749 Dim ds As MainDBDataSet = New MainDBDataSet()
1750 Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1751 any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1752 any1.MinOccurs = New Decimal(0)
1753 any1.MaxOccurs = Decimal.MaxValue
1754 any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1755 sequence.Items.Add(any1)
1756 Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1757 any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1758 any2.MinOccurs = New Decimal(1)
1759 any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1760 sequence.Items.Add(any2)
1761 Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1762 attribute1.Name = "namespace"
1763 attribute1.FixedValue = ds.Namespace
1764 type.Attributes.Add(attribute1)
1765 Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1766 attribute2.Name = "tableTypeName"
1767 attribute2.FixedValue = "ResultDataTable"
1768 type.Attributes.Add(attribute2)
1769 type.Particle = sequence
1770 Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1771 If xs.Contains(dsSchema.TargetNamespace) Then
1772 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1773 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1774 Try
1775 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1776 dsSchema.Write(s1)
1777 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1778 Do While schemas.MoveNext
1779 schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1780 s2.SetLength(0)
1781 schema.Write(s2)
1782 If (s1.Length = s2.Length) Then
1783 s1.Position = 0
1784 s2.Position = 0
1785
1786 Do While ((s1.Position <> s1.Length) _
1787 AndAlso (s1.ReadByte = s2.ReadByte))
1788
1789
1790 Loop
1791 If (s1.Position = s1.Length) Then
1792 Return type
1793 End If
1794 End If
1795
1796 Loop
1797 Finally
1798 If (Not (s1) Is Nothing) Then
1799 s1.Close
1800 End If
1801 If (Not (s2) Is Nothing) Then
1802 s2.Close
1803 End If
1804 End Try
1805 End If
1806 xs.Add(dsSchema)
1807 Return type
1808 End Function
1809 End Class
1810
1811 '''<summary>
1812 '''Represents strongly named DataRow class.
1813 '''</summary>
1814 Partial Public Class AdminRow
1815 Inherits Global.System.Data.DataRow
1816
1817 Private tableAdmin As AdminDataTable
1818
1819 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1820 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1821 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
1822 MyBase.New(rb)
1823 Me.tableAdmin = CType(Me.Table,AdminDataTable)
1824 End Sub
1825
1826 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1827 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1828 Public Property ID() As String
1829 Get
1830 Return CType(Me(Me.tableAdmin.IDColumn),String)
1831 End Get
1832 Set
1833 Me(Me.tableAdmin.IDColumn) = value
1834 End Set
1835 End Property
1836
1837 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1838 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1839 Public Property Full_Name() As String
1840 Get
1841 Try
1842 Return CType(Me(Me.tableAdmin.Full_NameColumn),String)
1843 Catch e As Global.System.InvalidCastException
1844 Throw New Global.System.Data.StrongTypingException("The value for column 'Full Name' in table 'Admin' is DBNull.", e)
1845 End Try
1846 End Get
1847 Set
1848 Me(Me.tableAdmin.Full_NameColumn) = value
1849 End Set
1850 End Property
1851
1852 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1853 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1854 Public Property Subject() As String
1855 Get
1856 Try
1857 Return CType(Me(Me.tableAdmin.SubjectColumn),String)
1858 Catch e As Global.System.InvalidCastException
1859 Throw New Global.System.Data.StrongTypingException("The value for column 'Subject' in table 'Admin' is DBNull.", e)
1860 End Try
1861 End Get
1862 Set
1863 Me(Me.tableAdmin.SubjectColumn) = value
1864 End Set
1865 End Property
1866
1867 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1868 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1869 Public Property Mobile() As Long
1870 Get
1871 Try
1872 Return CType(Me(Me.tableAdmin.MobileColumn),Long)
1873 Catch e As Global.System.InvalidCastException
1874 Throw New Global.System.Data.StrongTypingException("The value for column 'Mobile' in table 'Admin' is DBNull.", e)
1875 End Try
1876 End Get
1877 Set
1878 Me(Me.tableAdmin.MobileColumn) = value
1879 End Set
1880 End Property
1881
1882 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1883 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1884 Public Property Email() As String
1885 Get
1886 Try
1887 Return CType(Me(Me.tableAdmin.EmailColumn),String)
1888 Catch e As Global.System.InvalidCastException
1889 Throw New Global.System.Data.StrongTypingException("The value for column 'Email' in table 'Admin' is DBNull.", e)
1890 End Try
1891 End Get
1892 Set
1893 Me(Me.tableAdmin.EmailColumn) = value
1894 End Set
1895 End Property
1896
1897 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1898 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1899 Public Property Pass() As String
1900 Get
1901 Try
1902 Return CType(Me(Me.tableAdmin.PassColumn),String)
1903 Catch e As Global.System.InvalidCastException
1904 Throw New Global.System.Data.StrongTypingException("The value for column 'Pass' in table 'Admin' is DBNull.", e)
1905 End Try
1906 End Get
1907 Set
1908 Me(Me.tableAdmin.PassColumn) = value
1909 End Set
1910 End Property
1911
1912 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1913 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1914 Public Function IsFull_NameNull() As Boolean
1915 Return Me.IsNull(Me.tableAdmin.Full_NameColumn)
1916 End Function
1917
1918 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1919 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1920 Public Sub SetFull_NameNull()
1921 Me(Me.tableAdmin.Full_NameColumn) = Global.System.Convert.DBNull
1922 End Sub
1923
1924 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1925 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1926 Public Function IsSubjectNull() As Boolean
1927 Return Me.IsNull(Me.tableAdmin.SubjectColumn)
1928 End Function
1929
1930 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1931 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1932 Public Sub SetSubjectNull()
1933 Me(Me.tableAdmin.SubjectColumn) = Global.System.Convert.DBNull
1934 End Sub
1935
1936 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1937 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1938 Public Function IsMobileNull() As Boolean
1939 Return Me.IsNull(Me.tableAdmin.MobileColumn)
1940 End Function
1941
1942 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1943 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1944 Public Sub SetMobileNull()
1945 Me(Me.tableAdmin.MobileColumn) = Global.System.Convert.DBNull
1946 End Sub
1947
1948 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1949 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1950 Public Function IsEmailNull() As Boolean
1951 Return Me.IsNull(Me.tableAdmin.EmailColumn)
1952 End Function
1953
1954 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1955 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1956 Public Sub SetEmailNull()
1957 Me(Me.tableAdmin.EmailColumn) = Global.System.Convert.DBNull
1958 End Sub
1959
1960 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1961 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1962 Public Function IsPassNull() As Boolean
1963 Return Me.IsNull(Me.tableAdmin.PassColumn)
1964 End Function
1965
1966 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1967 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1968 Public Sub SetPassNull()
1969 Me(Me.tableAdmin.PassColumn) = Global.System.Convert.DBNull
1970 End Sub
1971 End Class
1972
1973 '''<summary>
1974 '''Represents strongly named DataRow class.
1975 '''</summary>
1976 Partial Public Class StudentRow
1977 Inherits Global.System.Data.DataRow
1978
1979 Private tableStudent As StudentDataTable
1980
1981 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1982 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1983 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
1984 MyBase.New(rb)
1985 Me.tableStudent = CType(Me.Table,StudentDataTable)
1986 End Sub
1987
1988 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1989 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1990 Public Property RollNo() As Integer
1991 Get
1992 Return CType(Me(Me.tableStudent.RollNoColumn),Integer)
1993 End Get
1994 Set
1995 Me(Me.tableStudent.RollNoColumn) = value
1996 End Set
1997 End Property
1998
1999 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2000 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2001 Public Property Full_Name() As String
2002 Get
2003 Try
2004 Return CType(Me(Me.tableStudent.Full_NameColumn),String)
2005 Catch e As Global.System.InvalidCastException
2006 Throw New Global.System.Data.StrongTypingException("The value for column 'Full Name' in table 'Student' is DBNull.", e)
2007 End Try
2008 End Get
2009 Set
2010 Me(Me.tableStudent.Full_NameColumn) = value
2011 End Set
2012 End Property
2013
2014 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2015 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2016 Public Property Dept() As String
2017 Get
2018 Try
2019 Return CType(Me(Me.tableStudent.DeptColumn),String)
2020 Catch e As Global.System.InvalidCastException
2021 Throw New Global.System.Data.StrongTypingException("The value for column 'Dept' in table 'Student' is DBNull.", e)
2022 End Try
2023 End Get
2024 Set
2025 Me(Me.tableStudent.DeptColumn) = value
2026 End Set
2027 End Property
2028
2029 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2030 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2031 Public Property Current_Year() As String
2032 Get
2033 Try
2034 Return CType(Me(Me.tableStudent.Current_YearColumn),String)
2035 Catch e As Global.System.InvalidCastException
2036 Throw New Global.System.Data.StrongTypingException("The value for column 'Current Year' in table 'Student' is DBNull.", e)
2037 End Try
2038 End Get
2039 Set
2040 Me(Me.tableStudent.Current_YearColumn) = value
2041 End Set
2042 End Property
2043
2044 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2045 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2046 Public Property Mob() As String
2047 Get
2048 Try
2049 Return CType(Me(Me.tableStudent.MobColumn),String)
2050 Catch e As Global.System.InvalidCastException
2051 Throw New Global.System.Data.StrongTypingException("The value for column 'Mob' in table 'Student' is DBNull.", e)
2052 End Try
2053 End Get
2054 Set
2055 Me(Me.tableStudent.MobColumn) = value
2056 End Set
2057 End Property
2058
2059 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2060 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2061 Public Property Email() As String
2062 Get
2063 Try
2064 Return CType(Me(Me.tableStudent.EmailColumn),String)
2065 Catch e As Global.System.InvalidCastException
2066 Throw New Global.System.Data.StrongTypingException("The value for column 'Email' in table 'Student' is DBNull.", e)
2067 End Try
2068 End Get
2069 Set
2070 Me(Me.tableStudent.EmailColumn) = value
2071 End Set
2072 End Property
2073
2074 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2075 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2076 Public Property Password() As String
2077 Get
2078 Try
2079 Return CType(Me(Me.tableStudent.PasswordColumn),String)
2080 Catch e As Global.System.InvalidCastException
2081 Throw New Global.System.Data.StrongTypingException("The value for column 'Password' in table 'Student' is DBNull.", e)
2082 End Try
2083 End Get
2084 Set
2085 Me(Me.tableStudent.PasswordColumn) = value
2086 End Set
2087 End Property
2088
2089 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2090 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2091 Public Property Test_Date() As Date
2092 Get
2093 Try
2094 Return CType(Me(Me.tableStudent.Test_DateColumn),Date)
2095 Catch e As Global.System.InvalidCastException
2096 Throw New Global.System.Data.StrongTypingException("The value for column 'Test Date' in table 'Student' is DBNull.", e)
2097 End Try
2098 End Get
2099 Set
2100 Me(Me.tableStudent.Test_DateColumn) = value
2101 End Set
2102 End Property
2103
2104 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2105 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2106 Public Property hour() As Integer
2107 Get
2108 Try
2109 Return CType(Me(Me.tableStudent.hourColumn),Integer)
2110 Catch e As Global.System.InvalidCastException
2111 Throw New Global.System.Data.StrongTypingException("The value for column 'hour' in table 'Student' is DBNull.", e)
2112 End Try
2113 End Get
2114 Set
2115 Me(Me.tableStudent.hourColumn) = value
2116 End Set
2117 End Property
2118
2119 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2120 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2121 Public Property min() As Integer
2122 Get
2123 Try
2124 Return CType(Me(Me.tableStudent.minColumn),Integer)
2125 Catch e As Global.System.InvalidCastException
2126 Throw New Global.System.Data.StrongTypingException("The value for column 'min' in table 'Student' is DBNull.", e)
2127 End Try
2128 End Get
2129 Set
2130 Me(Me.tableStudent.minColumn) = value
2131 End Set
2132 End Property
2133
2134 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2135 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2136 Public Property sec() As Integer
2137 Get
2138 Try
2139 Return CType(Me(Me.tableStudent.secColumn),Integer)
2140 Catch e As Global.System.InvalidCastException
2141 Throw New Global.System.Data.StrongTypingException("The value for column 'sec' in table 'Student' is DBNull.", e)
2142 End Try
2143 End Get
2144 Set
2145 Me(Me.tableStudent.secColumn) = value
2146 End Set
2147 End Property
2148
2149 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2150 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2151 Public Property Total_Ques() As Integer
2152 Get
2153 Try
2154 Return CType(Me(Me.tableStudent.Total_QuesColumn),Integer)
2155 Catch e As Global.System.InvalidCastException
2156 Throw New Global.System.Data.StrongTypingException("The value for column 'Total_Ques' in table 'Student' is DBNull.", e)
2157 End Try
2158 End Get
2159 Set
2160 Me(Me.tableStudent.Total_QuesColumn) = value
2161 End Set
2162 End Property
2163
2164 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2165 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2166 Public Function IsFull_NameNull() As Boolean
2167 Return Me.IsNull(Me.tableStudent.Full_NameColumn)
2168 End Function
2169
2170 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2171 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2172 Public Sub SetFull_NameNull()
2173 Me(Me.tableStudent.Full_NameColumn) = Global.System.Convert.DBNull
2174 End Sub
2175
2176 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2177 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2178 Public Function IsDeptNull() As Boolean
2179 Return Me.IsNull(Me.tableStudent.DeptColumn)
2180 End Function
2181
2182 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2183 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2184 Public Sub SetDeptNull()
2185 Me(Me.tableStudent.DeptColumn) = Global.System.Convert.DBNull
2186 End Sub
2187
2188 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2189 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2190 Public Function IsCurrent_YearNull() As Boolean
2191 Return Me.IsNull(Me.tableStudent.Current_YearColumn)
2192 End Function
2193
2194 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2195 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2196 Public Sub SetCurrent_YearNull()
2197 Me(Me.tableStudent.Current_YearColumn) = Global.System.Convert.DBNull
2198 End Sub
2199
2200 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2201 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2202 Public Function IsMobNull() As Boolean
2203 Return Me.IsNull(Me.tableStudent.MobColumn)
2204 End Function
2205
2206 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2207 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2208 Public Sub SetMobNull()
2209 Me(Me.tableStudent.MobColumn) = Global.System.Convert.DBNull
2210 End Sub
2211
2212 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2213 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2214 Public Function IsEmailNull() As Boolean
2215 Return Me.IsNull(Me.tableStudent.EmailColumn)
2216 End Function
2217
2218 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2219 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2220 Public Sub SetEmailNull()
2221 Me(Me.tableStudent.EmailColumn) = Global.System.Convert.DBNull
2222 End Sub
2223
2224 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2225 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2226 Public Function IsPasswordNull() As Boolean
2227 Return Me.IsNull(Me.tableStudent.PasswordColumn)
2228 End Function
2229
2230 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2231 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2232 Public Sub SetPasswordNull()
2233 Me(Me.tableStudent.PasswordColumn) = Global.System.Convert.DBNull
2234 End Sub
2235
2236 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2237 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2238 Public Function IsTest_DateNull() As Boolean
2239 Return Me.IsNull(Me.tableStudent.Test_DateColumn)
2240 End Function
2241
2242 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2243 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2244 Public Sub SetTest_DateNull()
2245 Me(Me.tableStudent.Test_DateColumn) = Global.System.Convert.DBNull
2246 End Sub
2247
2248 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2249 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2250 Public Function IshourNull() As Boolean
2251 Return Me.IsNull(Me.tableStudent.hourColumn)
2252 End Function
2253
2254 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2255 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2256 Public Sub SethourNull()
2257 Me(Me.tableStudent.hourColumn) = Global.System.Convert.DBNull
2258 End Sub
2259
2260 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2261 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2262 Public Function IsminNull() As Boolean
2263 Return Me.IsNull(Me.tableStudent.minColumn)
2264 End Function
2265
2266 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2267 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2268 Public Sub SetminNull()
2269 Me(Me.tableStudent.minColumn) = Global.System.Convert.DBNull
2270 End Sub
2271
2272 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2273 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2274 Public Function IssecNull() As Boolean
2275 Return Me.IsNull(Me.tableStudent.secColumn)
2276 End Function
2277
2278 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2279 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2280 Public Sub SetsecNull()
2281 Me(Me.tableStudent.secColumn) = Global.System.Convert.DBNull
2282 End Sub
2283
2284 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2285 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2286 Public Function IsTotal_QuesNull() As Boolean
2287 Return Me.IsNull(Me.tableStudent.Total_QuesColumn)
2288 End Function
2289
2290 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2291 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2292 Public Sub SetTotal_QuesNull()
2293 Me(Me.tableStudent.Total_QuesColumn) = Global.System.Convert.DBNull
2294 End Sub
2295 End Class
2296
2297 '''<summary>
2298 '''Represents strongly named DataRow class.
2299 '''</summary>
2300 Partial Public Class QuesRow
2301 Inherits Global.System.Data.DataRow
2302
2303 Private tableQues As QuesDataTable
2304
2305 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2306 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2307 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
2308 MyBase.New(rb)
2309 Me.tableQues = CType(Me.Table,QuesDataTable)
2310 End Sub
2311
2312 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2313 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2314 Public Property Question() As String
2315 Get
2316 Try
2317 Return CType(Me(Me.tableQues.QuestionColumn),String)
2318 Catch e As Global.System.InvalidCastException
2319 Throw New Global.System.Data.StrongTypingException("The value for column 'Question' in table 'Ques' is DBNull.", e)
2320 End Try
2321 End Get
2322 Set
2323 Me(Me.tableQues.QuestionColumn) = value
2324 End Set
2325 End Property
2326
2327 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2328 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2329 Public Property Opt1() As String
2330 Get
2331 Try
2332 Return CType(Me(Me.tableQues.Opt1Column),String)
2333 Catch e As Global.System.InvalidCastException
2334 Throw New Global.System.Data.StrongTypingException("The value for column 'Opt1' in table 'Ques' is DBNull.", e)
2335 End Try
2336 End Get
2337 Set
2338 Me(Me.tableQues.Opt1Column) = value
2339 End Set
2340 End Property
2341
2342 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2343 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2344 Public Property Opt2() As String
2345 Get
2346 Try
2347 Return CType(Me(Me.tableQues.Opt2Column),String)
2348 Catch e As Global.System.InvalidCastException
2349 Throw New Global.System.Data.StrongTypingException("The value for column 'Opt2' in table 'Ques' is DBNull.", e)
2350 End Try
2351 End Get
2352 Set
2353 Me(Me.tableQues.Opt2Column) = value
2354 End Set
2355 End Property
2356
2357 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2358 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2359 Public Property Opt3() As String
2360 Get
2361 Try
2362 Return CType(Me(Me.tableQues.Opt3Column),String)
2363 Catch e As Global.System.InvalidCastException
2364 Throw New Global.System.Data.StrongTypingException("The value for column 'Opt3' in table 'Ques' is DBNull.", e)
2365 End Try
2366 End Get
2367 Set
2368 Me(Me.tableQues.Opt3Column) = value
2369 End Set
2370 End Property
2371
2372 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2373 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2374 Public Property Opt4() As String
2375 Get
2376 Try
2377 Return CType(Me(Me.tableQues.Opt4Column),String)
2378 Catch e As Global.System.InvalidCastException
2379 Throw New Global.System.Data.StrongTypingException("The value for column 'Opt4' in table 'Ques' is DBNull.", e)
2380 End Try
2381 End Get
2382 Set
2383 Me(Me.tableQues.Opt4Column) = value
2384 End Set
2385 End Property
2386
2387 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2388 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2389 Public Property Answer() As String
2390 Get
2391 Try
2392 Return CType(Me(Me.tableQues.AnswerColumn),String)
2393 Catch e As Global.System.InvalidCastException
2394 Throw New Global.System.Data.StrongTypingException("The value for column 'Answer' in table 'Ques' is DBNull.", e)
2395 End Try
2396 End Get
2397 Set
2398 Me(Me.tableQues.AnswerColumn) = value
2399 End Set
2400 End Property
2401
2402 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2403 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2404 Public Property QuesNo() As Integer
2405 Get
2406 Try
2407 Return CType(Me(Me.tableQues.QuesNoColumn),Integer)
2408 Catch e As Global.System.InvalidCastException
2409 Throw New Global.System.Data.StrongTypingException("The value for column 'QuesNo' in table 'Ques' is DBNull.", e)
2410 End Try
2411 End Get
2412 Set
2413 Me(Me.tableQues.QuesNoColumn) = value
2414 End Set
2415 End Property
2416
2417 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2418 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2419 Public Function IsQuestionNull() As Boolean
2420 Return Me.IsNull(Me.tableQues.QuestionColumn)
2421 End Function
2422
2423 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2424 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2425 Public Sub SetQuestionNull()
2426 Me(Me.tableQues.QuestionColumn) = Global.System.Convert.DBNull
2427 End Sub
2428
2429 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2430 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2431 Public Function IsOpt1Null() As Boolean
2432 Return Me.IsNull(Me.tableQues.Opt1Column)
2433 End Function
2434
2435 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2436 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2437 Public Sub SetOpt1Null()
2438 Me(Me.tableQues.Opt1Column) = Global.System.Convert.DBNull
2439 End Sub
2440
2441 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2442 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2443 Public Function IsOpt2Null() As Boolean
2444 Return Me.IsNull(Me.tableQues.Opt2Column)
2445 End Function
2446
2447 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2448 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2449 Public Sub SetOpt2Null()
2450 Me(Me.tableQues.Opt2Column) = Global.System.Convert.DBNull
2451 End Sub
2452
2453 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2454 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2455 Public Function IsOpt3Null() As Boolean
2456 Return Me.IsNull(Me.tableQues.Opt3Column)
2457 End Function
2458
2459 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2460 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2461 Public Sub SetOpt3Null()
2462 Me(Me.tableQues.Opt3Column) = Global.System.Convert.DBNull
2463 End Sub
2464
2465 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2466 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2467 Public Function IsOpt4Null() As Boolean
2468 Return Me.IsNull(Me.tableQues.Opt4Column)
2469 End Function
2470
2471 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2472 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2473 Public Sub SetOpt4Null()
2474 Me(Me.tableQues.Opt4Column) = Global.System.Convert.DBNull
2475 End Sub
2476
2477 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2478 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2479 Public Function IsAnswerNull() As Boolean
2480 Return Me.IsNull(Me.tableQues.AnswerColumn)
2481 End Function
2482
2483 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2484 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2485 Public Sub SetAnswerNull()
2486 Me(Me.tableQues.AnswerColumn) = Global.System.Convert.DBNull
2487 End Sub
2488
2489 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2490 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2491 Public Function IsQuesNoNull() As Boolean
2492 Return Me.IsNull(Me.tableQues.QuesNoColumn)
2493 End Function
2494
2495 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2496 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2497 Public Sub SetQuesNoNull()
2498 Me(Me.tableQues.QuesNoColumn) = Global.System.Convert.DBNull
2499 End Sub
2500 End Class
2501
2502 '''<summary>
2503 '''Represents strongly named DataRow class.
2504 '''</summary>
2505 Partial Public Class ResultRow
2506 Inherits Global.System.Data.DataRow
2507
2508 Private tableResult As ResultDataTable
2509
2510 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2511 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2512 Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
2513 MyBase.New(rb)
2514 Me.tableResult = CType(Me.Table,ResultDataTable)
2515 End Sub
2516
2517 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2518 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2519 Public Property RollNo() As Integer
2520 Get
2521 Try
2522 Return CType(Me(Me.tableResult.RollNoColumn),Integer)
2523 Catch e As Global.System.InvalidCastException
2524 Throw New Global.System.Data.StrongTypingException("The value for column 'RollNo' in table 'Result' is DBNull.", e)
2525 End Try
2526 End Get
2527 Set
2528 Me(Me.tableResult.RollNoColumn) = value
2529 End Set
2530 End Property
2531
2532 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2533 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2534 Public Property Name() As String
2535 Get
2536 Try
2537 Return CType(Me(Me.tableResult.NameColumn),String)
2538 Catch e As Global.System.InvalidCastException
2539 Throw New Global.System.Data.StrongTypingException("The value for column 'Name' in table 'Result' is DBNull.", e)
2540 End Try
2541 End Get
2542 Set
2543 Me(Me.tableResult.NameColumn) = value
2544 End Set
2545 End Property
2546
2547 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2548 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2549 Public Property Current_Year() As String
2550 Get
2551 Try
2552 Return CType(Me(Me.tableResult.Current_YearColumn),String)
2553 Catch e As Global.System.InvalidCastException
2554 Throw New Global.System.Data.StrongTypingException("The value for column 'Current_Year' in table 'Result' is DBNull.", e)
2555 End Try
2556 End Get
2557 Set
2558 Me(Me.tableResult.Current_YearColumn) = value
2559 End Set
2560 End Property
2561
2562 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2563 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2564 Public Property Dept() As String
2565 Get
2566 Try
2567 Return CType(Me(Me.tableResult.DeptColumn),String)
2568 Catch e As Global.System.InvalidCastException
2569 Throw New Global.System.Data.StrongTypingException("The value for column 'Dept' in table 'Result' is DBNull.", e)
2570 End Try
2571 End Get
2572 Set
2573 Me(Me.tableResult.DeptColumn) = value
2574 End Set
2575 End Property
2576
2577 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2578 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2579 Public Property Total_Ques() As Integer
2580 Get
2581 Try
2582 Return CType(Me(Me.tableResult.Total_QuesColumn),Integer)
2583 Catch e As Global.System.InvalidCastException
2584 Throw New Global.System.Data.StrongTypingException("The value for column 'Total_Ques' in table 'Result' is DBNull.", e)
2585 End Try
2586 End Get
2587 Set
2588 Me(Me.tableResult.Total_QuesColumn) = value
2589 End Set
2590 End Property
2591
2592 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2593 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2594 Public Property Attempted_Ques() As Integer
2595 Get
2596 Try
2597 Return CType(Me(Me.tableResult.Attempted_QuesColumn),Integer)
2598 Catch e As Global.System.InvalidCastException
2599 Throw New Global.System.Data.StrongTypingException("The value for column 'Attempted_Ques' in table 'Result' is DBNull.", e)
2600 End Try
2601 End Get
2602 Set
2603 Me(Me.tableResult.Attempted_QuesColumn) = value
2604 End Set
2605 End Property
2606
2607 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2608 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2609 Public Property Right_Answers() As Integer
2610 Get
2611 Try
2612 Return CType(Me(Me.tableResult.Right_AnswersColumn),Integer)
2613 Catch e As Global.System.InvalidCastException
2614 Throw New Global.System.Data.StrongTypingException("The value for column 'Right_Answers' in table 'Result' is DBNull.", e)
2615 End Try
2616 End Get
2617 Set
2618 Me(Me.tableResult.Right_AnswersColumn) = value
2619 End Set
2620 End Property
2621
2622 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2623 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2624 Public Property Marks_Obtained() As Integer
2625 Get
2626 Try
2627 Return CType(Me(Me.tableResult.Marks_ObtainedColumn),Integer)
2628 Catch e As Global.System.InvalidCastException
2629 Throw New Global.System.Data.StrongTypingException("The value for column 'Marks_Obtained' in table 'Result' is DBNull.", e)
2630 End Try
2631 End Get
2632 Set
2633 Me(Me.tableResult.Marks_ObtainedColumn) = value
2634 End Set
2635 End Property
2636
2637 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2638 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2639 Public Function IsRollNoNull() As Boolean
2640 Return Me.IsNull(Me.tableResult.RollNoColumn)
2641 End Function
2642
2643 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2644 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2645 Public Sub SetRollNoNull()
2646 Me(Me.tableResult.RollNoColumn) = Global.System.Convert.DBNull
2647 End Sub
2648
2649 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2650 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2651 Public Function IsNameNull() As Boolean
2652 Return Me.IsNull(Me.tableResult.NameColumn)
2653 End Function
2654
2655 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2656 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2657 Public Sub SetNameNull()
2658 Me(Me.tableResult.NameColumn) = Global.System.Convert.DBNull
2659 End Sub
2660
2661 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2662 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2663 Public Function IsCurrent_YearNull() As Boolean
2664 Return Me.IsNull(Me.tableResult.Current_YearColumn)
2665 End Function
2666
2667 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2668 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2669 Public Sub SetCurrent_YearNull()
2670 Me(Me.tableResult.Current_YearColumn) = Global.System.Convert.DBNull
2671 End Sub
2672
2673 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2674 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2675 Public Function IsDeptNull() As Boolean
2676 Return Me.IsNull(Me.tableResult.DeptColumn)
2677 End Function
2678
2679 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2680 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2681 Public Sub SetDeptNull()
2682 Me(Me.tableResult.DeptColumn) = Global.System.Convert.DBNull
2683 End Sub
2684
2685 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2686 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2687 Public Function IsTotal_QuesNull() As Boolean
2688 Return Me.IsNull(Me.tableResult.Total_QuesColumn)
2689 End Function
2690
2691 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2692 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2693 Public Sub SetTotal_QuesNull()
2694 Me(Me.tableResult.Total_QuesColumn) = Global.System.Convert.DBNull
2695 End Sub
2696
2697 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2698 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2699 Public Function IsAttempted_QuesNull() As Boolean
2700 Return Me.IsNull(Me.tableResult.Attempted_QuesColumn)
2701 End Function
2702
2703 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2704 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2705 Public Sub SetAttempted_QuesNull()
2706 Me(Me.tableResult.Attempted_QuesColumn) = Global.System.Convert.DBNull
2707 End Sub
2708
2709 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2710 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2711 Public Function IsRight_AnswersNull() As Boolean
2712 Return Me.IsNull(Me.tableResult.Right_AnswersColumn)
2713 End Function
2714
2715 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2716 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2717 Public Sub SetRight_AnswersNull()
2718 Me(Me.tableResult.Right_AnswersColumn) = Global.System.Convert.DBNull
2719 End Sub
2720
2721 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2722 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2723 Public Function IsMarks_ObtainedNull() As Boolean
2724 Return Me.IsNull(Me.tableResult.Marks_ObtainedColumn)
2725 End Function
2726
2727 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2728 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2729 Public Sub SetMarks_ObtainedNull()
2730 Me(Me.tableResult.Marks_ObtainedColumn) = Global.System.Convert.DBNull
2731 End Sub
2732 End Class
2733
2734 '''<summary>
2735 '''Row event argument class
2736 '''</summary>
2737 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2738 Public Class AdminRowChangeEvent
2739 Inherits Global.System.EventArgs
2740
2741 Private eventRow As AdminRow
2742
2743 Private eventAction As Global.System.Data.DataRowAction
2744
2745 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2746 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2747 Public Sub New(ByVal row As AdminRow, ByVal action As Global.System.Data.DataRowAction)
2748 MyBase.New
2749 Me.eventRow = row
2750 Me.eventAction = action
2751 End Sub
2752
2753 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2754 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2755 Public ReadOnly Property Row() As AdminRow
2756 Get
2757 Return Me.eventRow
2758 End Get
2759 End Property
2760
2761 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2762 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2763 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
2764 Get
2765 Return Me.eventAction
2766 End Get
2767 End Property
2768 End Class
2769
2770 '''<summary>
2771 '''Row event argument class
2772 '''</summary>
2773 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2774 Public Class StudentRowChangeEvent
2775 Inherits Global.System.EventArgs
2776
2777 Private eventRow As StudentRow
2778
2779 Private eventAction As Global.System.Data.DataRowAction
2780
2781 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2782 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2783 Public Sub New(ByVal row As StudentRow, ByVal action As Global.System.Data.DataRowAction)
2784 MyBase.New
2785 Me.eventRow = row
2786 Me.eventAction = action
2787 End Sub
2788
2789 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2790 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2791 Public ReadOnly Property Row() As StudentRow
2792 Get
2793 Return Me.eventRow
2794 End Get
2795 End Property
2796
2797 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2798 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2799 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
2800 Get
2801 Return Me.eventAction
2802 End Get
2803 End Property
2804 End Class
2805
2806 '''<summary>
2807 '''Row event argument class
2808 '''</summary>
2809 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2810 Public Class QuesRowChangeEvent
2811 Inherits Global.System.EventArgs
2812
2813 Private eventRow As QuesRow
2814
2815 Private eventAction As Global.System.Data.DataRowAction
2816
2817 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2818 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2819 Public Sub New(ByVal row As QuesRow, ByVal action As Global.System.Data.DataRowAction)
2820 MyBase.New
2821 Me.eventRow = row
2822 Me.eventAction = action
2823 End Sub
2824
2825 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2826 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2827 Public ReadOnly Property Row() As QuesRow
2828 Get
2829 Return Me.eventRow
2830 End Get
2831 End Property
2832
2833 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2834 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2835 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
2836 Get
2837 Return Me.eventAction
2838 End Get
2839 End Property
2840 End Class
2841
2842 '''<summary>
2843 '''Row event argument class
2844 '''</summary>
2845 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2846 Public Class ResultRowChangeEvent
2847 Inherits Global.System.EventArgs
2848
2849 Private eventRow As ResultRow
2850
2851 Private eventAction As Global.System.Data.DataRowAction
2852
2853 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2854 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2855 Public Sub New(ByVal row As ResultRow, ByVal action As Global.System.Data.DataRowAction)
2856 MyBase.New
2857 Me.eventRow = row
2858 Me.eventAction = action
2859 End Sub
2860
2861 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2862 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2863 Public ReadOnly Property Row() As ResultRow
2864 Get
2865 Return Me.eventRow
2866 End Get
2867 End Property
2868
2869 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2870 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2871 Public ReadOnly Property Action() As Global.System.Data.DataRowAction
2872 Get
2873 Return Me.eventAction
2874 End Get
2875 End Property
2876 End Class
2877 End Class
2878
2879 Namespace MainDBDataSetTableAdapters
2880
2881 '''<summary>
2882 '''Represents the connection and commands used to retrieve and save data.
2883 '''</summary>
2884 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
2885 Global.System.ComponentModel.ToolboxItem(true), _
2886 Global.System.ComponentModel.DataObjectAttribute(true), _
2887 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
2888 ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
2889 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
2890 Partial Public Class AdminTableAdapter
2891 Inherits Global.System.ComponentModel.Component
2892
2893 Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
2894
2895 Private _connection As Global.System.Data.OleDb.OleDbConnection
2896
2897 Private _transaction As Global.System.Data.OleDb.OleDbTransaction
2898
2899 Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
2900
2901 Private _clearBeforeFill As Boolean
2902
2903 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2904 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2905 Public Sub New()
2906 MyBase.New
2907 Me.ClearBeforeFill = true
2908 End Sub
2909
2910 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2911 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2912 Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
2913 Get
2914 If (Me._adapter Is Nothing) Then
2915 Me.InitAdapter
2916 End If
2917 Return Me._adapter
2918 End Get
2919 End Property
2920
2921 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2922 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2923 Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
2924 Get
2925 If (Me._connection Is Nothing) Then
2926 Me.InitConnection
2927 End If
2928 Return Me._connection
2929 End Get
2930 Set
2931 Me._connection = value
2932 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
2933 Me.Adapter.InsertCommand.Connection = value
2934 End If
2935 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
2936 Me.Adapter.DeleteCommand.Connection = value
2937 End If
2938 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
2939 Me.Adapter.UpdateCommand.Connection = value
2940 End If
2941 Dim i As Integer = 0
2942 Do While (i < Me.CommandCollection.Length)
2943 If (Not (Me.CommandCollection(i)) Is Nothing) Then
2944 CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
2945 End If
2946 i = (i + 1)
2947 Loop
2948 End Set
2949 End Property
2950
2951 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2952 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2953 Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
2954 Get
2955 Return Me._transaction
2956 End Get
2957 Set
2958 Me._transaction = value
2959 Dim i As Integer = 0
2960 Do While (i < Me.CommandCollection.Length)
2961 Me.CommandCollection(i).Transaction = Me._transaction
2962 i = (i + 1)
2963 Loop
2964 If ((Not (Me.Adapter) Is Nothing) _
2965 AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
2966 Me.Adapter.DeleteCommand.Transaction = Me._transaction
2967 End If
2968 If ((Not (Me.Adapter) Is Nothing) _
2969 AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
2970 Me.Adapter.InsertCommand.Transaction = Me._transaction
2971 End If
2972 If ((Not (Me.Adapter) Is Nothing) _
2973 AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
2974 Me.Adapter.UpdateCommand.Transaction = Me._transaction
2975 End If
2976 End Set
2977 End Property
2978
2979 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2980 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2981 Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
2982 Get
2983 If (Me._commandCollection Is Nothing) Then
2984 Me.InitCommandCollection
2985 End If
2986 Return Me._commandCollection
2987 End Get
2988 End Property
2989
2990 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2991 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2992 Public Property ClearBeforeFill() As Boolean
2993 Get
2994 Return Me._clearBeforeFill
2995 End Get
2996 Set
2997 Me._clearBeforeFill = value
2998 End Set
2999 End Property
3000
3001 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3002 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3003 Private Sub InitAdapter()
3004 Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
3005 Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
3006 tableMapping.SourceTable = "Table"
3007 tableMapping.DataSetTable = "Admin"
3008 tableMapping.ColumnMappings.Add("ID", "ID")
3009 tableMapping.ColumnMappings.Add("Full Name", "Full Name")
3010 tableMapping.ColumnMappings.Add("Subject", "Subject")
3011 tableMapping.ColumnMappings.Add("Mobile", "Mobile")
3012 tableMapping.ColumnMappings.Add("Email", "Email")
3013 tableMapping.ColumnMappings.Add("Pass", "Pass")
3014 Me._adapter.TableMappings.Add(tableMapping)
3015 Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
3016 Me._adapter.DeleteCommand.Connection = Me.Connection
3017 Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Admin` WHERE ((`ID` = ?) AND ((? = 1 AND `Mobile` IS NULL) OR (`Mobi"& _
3018 "le` = ?)) AND ((? = 1 AND `Email` IS NULL) OR (`Email` = ?)) AND ((? = 1 AND `Pa"& _
3019 "ss` IS NULL) OR (`Pass` = ?)))"
3020 Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
3021 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
3022 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Mobile", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mobile", Global.System.Data.DataRowVersion.Original, true, Nothing))
3023 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Mobile", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mobile", Global.System.Data.DataRowVersion.Original, false, Nothing))
3024 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Email", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Original, true, Nothing))
3025 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Email", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Original, false, Nothing))
3026 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Pass", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Pass", Global.System.Data.DataRowVersion.Original, true, Nothing))
3027 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Pass", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Pass", Global.System.Data.DataRowVersion.Original, false, Nothing))
3028 Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
3029 Me._adapter.InsertCommand.Connection = Me.Connection
3030 Me._adapter.InsertCommand.CommandText = "INSERT INTO `Admin` (`ID`, `Full Name`, `Subject`, `Mobile`, `Email`, `Pass`) VAL"& _
3031 "UES (?, ?, ?, ?, ?, ?)"
3032 Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
3033 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ID", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Current, false, Nothing))
3034 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Full_Name", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Full Name", Global.System.Data.DataRowVersion.Current, false, Nothing))
3035 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Subject", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Subject", Global.System.Data.DataRowVersion.Current, false, Nothing))
3036 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Mobile", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mobile", Global.System.Data.DataRowVersion.Current, false, Nothing))
3037 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Current, false, Nothing))
3038 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Pass", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Pass", Global.System.Data.DataRowVersion.Current, false, Nothing))
3039 Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
3040 Me._adapter.UpdateCommand.Connection = Me.Connection
3041 Me._adapter.UpdateCommand.CommandText = "UPDATE `Admin` SET `ID` = ?, `Full Name` = ?, `Subject` = ?, `Mobile` = ?, `Email"& _
3042 "` = ?, `Pass` = ? WHERE ((`ID` = ?) AND ((? = 1 AND `Mobile` IS NULL) OR (`Mobil"& _
3043 "e` = ?)) AND ((? = 1 AND `Email` IS NULL) OR (`Email` = ?)) AND ((? = 1 AND `Pas"& _
3044 "s` IS NULL) OR (`Pass` = ?)))"
3045 Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
3046 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ID", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Current, false, Nothing))
3047 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Full_Name", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Full Name", Global.System.Data.DataRowVersion.Current, false, Nothing))
3048 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Subject", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Subject", Global.System.Data.DataRowVersion.Current, false, Nothing))
3049 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Mobile", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mobile", Global.System.Data.DataRowVersion.Current, false, Nothing))
3050 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Current, false, Nothing))
3051 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Pass", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Pass", Global.System.Data.DataRowVersion.Current, false, Nothing))
3052 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing))
3053 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Mobile", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mobile", Global.System.Data.DataRowVersion.Original, true, Nothing))
3054 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Mobile", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mobile", Global.System.Data.DataRowVersion.Original, false, Nothing))
3055 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Email", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Original, true, Nothing))
3056 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Email", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Original, false, Nothing))
3057 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Pass", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Pass", Global.System.Data.DataRowVersion.Original, true, Nothing))
3058 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Pass", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Pass", Global.System.Data.DataRowVersion.Original, false, Nothing))
3059 End Sub
3060
3061 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3062 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3063 Private Sub InitConnection()
3064 Me._connection = New Global.System.Data.OleDb.OleDbConnection()
3065 Me._connection.ConnectionString = Global.ExaminationSystem.My.MySettings.Default.MainDBConnectionString
3066 End Sub
3067
3068 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3069 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3070 Private Sub InitCommandCollection()
3071 Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
3072 Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
3073 Me._commandCollection(0).Connection = Me.Connection
3074 Me._commandCollection(0).CommandText = "SELECT ID, [Full Name], Subject, Mobile, Email, Pass FROM Admin"
3075 Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
3076 End Sub
3077
3078 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3079 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3080 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3081 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
3082 Public Overloads Overridable Function Fill(ByVal dataTable As MainDBDataSet.AdminDataTable) As Integer
3083 Me.Adapter.SelectCommand = Me.CommandCollection(0)
3084 If (Me.ClearBeforeFill = true) Then
3085 dataTable.Clear
3086 End If
3087 Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
3088 Return returnValue
3089 End Function
3090
3091 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3092 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3093 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3094 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
3095 Public Overloads Overridable Function GetData() As MainDBDataSet.AdminDataTable
3096 Me.Adapter.SelectCommand = Me.CommandCollection(0)
3097 Dim dataTable As MainDBDataSet.AdminDataTable = New MainDBDataSet.AdminDataTable()
3098 Me.Adapter.Fill(dataTable)
3099 Return dataTable
3100 End Function
3101
3102 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3103 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3104 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3105 Public Overloads Overridable Function Update(ByVal dataTable As MainDBDataSet.AdminDataTable) As Integer
3106 Return Me.Adapter.Update(dataTable)
3107 End Function
3108
3109 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3110 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3111 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3112 Public Overloads Overridable Function Update(ByVal dataSet As MainDBDataSet) As Integer
3113 Return Me.Adapter.Update(dataSet, "Admin")
3114 End Function
3115
3116 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3117 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3118 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3119 Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
3120 Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
3121 End Function
3122
3123 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3124 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3125 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3126 Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
3127 Return Me.Adapter.Update(dataRows)
3128 End Function
3129
3130 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3131 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3132 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3133 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
3134 Public Overloads Overridable Function Delete(ByVal Original_ID As String, ByVal Original_Mobile As String, ByVal Original_Email As String, ByVal Original_Pass As String) As Integer
3135 If (Original_ID Is Nothing) Then
3136 Throw New Global.System.ArgumentNullException("Original_ID")
3137 Else
3138 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,String)
3139 End If
3140 If (Original_Mobile Is Nothing) Then
3141 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
3142 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
3143 Else
3144 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
3145 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Mobile,String)
3146 End If
3147 If (Original_Email Is Nothing) Then
3148 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
3149 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
3150 Else
3151 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
3152 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Email,String)
3153 End If
3154 If (Original_Pass Is Nothing) Then
3155 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
3156 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
3157 Else
3158 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
3159 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Pass,String)
3160 End If
3161 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
3162 If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
3163 <> Global.System.Data.ConnectionState.Open) Then
3164 Me.Adapter.DeleteCommand.Connection.Open
3165 End If
3166 Try
3167 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
3168 Return returnValue
3169 Finally
3170 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
3171 Me.Adapter.DeleteCommand.Connection.Close
3172 End If
3173 End Try
3174 End Function
3175
3176 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3177 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3178 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3179 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
3180 Public Overloads Overridable Function Insert(ByVal ID As String, ByVal Full_Name As String, ByVal Subject As String, ByVal Mobile As String, ByVal Email As String, ByVal Pass As String) As Integer
3181 If (ID Is Nothing) Then
3182 Throw New Global.System.ArgumentNullException("ID")
3183 Else
3184 Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,String)
3185 End If
3186 If (Full_Name Is Nothing) Then
3187 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
3188 Else
3189 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Full_Name,String)
3190 End If
3191 If (Subject Is Nothing) Then
3192 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
3193 Else
3194 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Subject,String)
3195 End If
3196 If (Mobile Is Nothing) Then
3197 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
3198 Else
3199 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Mobile,String)
3200 End If
3201 If (Email Is Nothing) Then
3202 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
3203 Else
3204 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Email,String)
3205 End If
3206 If (Pass Is Nothing) Then
3207 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
3208 Else
3209 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Pass,String)
3210 End If
3211 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
3212 If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
3213 <> Global.System.Data.ConnectionState.Open) Then
3214 Me.Adapter.InsertCommand.Connection.Open
3215 End If
3216 Try
3217 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
3218 Return returnValue
3219 Finally
3220 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
3221 Me.Adapter.InsertCommand.Connection.Close
3222 End If
3223 End Try
3224 End Function
3225
3226 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3227 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3228 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3229 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
3230 Public Overloads Overridable Function Update(ByVal ID As String, ByVal Full_Name As String, ByVal Subject As String, ByVal Mobile As String, ByVal Email As String, ByVal Pass As String, ByVal Original_ID As String, ByVal Original_Mobile As String, ByVal Original_Email As String, ByVal Original_Pass As String) As Integer
3231 If (ID Is Nothing) Then
3232 Throw New Global.System.ArgumentNullException("ID")
3233 Else
3234 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,String)
3235 End If
3236 If (Full_Name Is Nothing) Then
3237 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
3238 Else
3239 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Full_Name,String)
3240 End If
3241 If (Subject Is Nothing) Then
3242 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
3243 Else
3244 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Subject,String)
3245 End If
3246 If (Mobile Is Nothing) Then
3247 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
3248 Else
3249 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Mobile,String)
3250 End If
3251 If (Email Is Nothing) Then
3252 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
3253 Else
3254 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Email,String)
3255 End If
3256 If (Pass Is Nothing) Then
3257 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
3258 Else
3259 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Pass,String)
3260 End If
3261 If (Original_ID Is Nothing) Then
3262 Throw New Global.System.ArgumentNullException("Original_ID")
3263 Else
3264 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ID,String)
3265 End If
3266 If (Original_Mobile Is Nothing) Then
3267 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object)
3268 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
3269 Else
3270 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object)
3271 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Mobile,String)
3272 End If
3273 If (Original_Email Is Nothing) Then
3274 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object)
3275 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
3276 Else
3277 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object)
3278 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Email,String)
3279 End If
3280 If (Original_Pass Is Nothing) Then
3281 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object)
3282 Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
3283 Else
3284 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object)
3285 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Pass,String)
3286 End If
3287 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
3288 If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
3289 <> Global.System.Data.ConnectionState.Open) Then
3290 Me.Adapter.UpdateCommand.Connection.Open
3291 End If
3292 Try
3293 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
3294 Return returnValue
3295 Finally
3296 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
3297 Me.Adapter.UpdateCommand.Connection.Close
3298 End If
3299 End Try
3300 End Function
3301
3302 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3303 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3304 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3305 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
3306 Public Overloads Overridable Function Update(ByVal Full_Name As String, ByVal Subject As String, ByVal Mobile As String, ByVal Email As String, ByVal Pass As String, ByVal Original_ID As String, ByVal Original_Mobile As String, ByVal Original_Email As String, ByVal Original_Pass As String) As Integer
3307 Return Me.Update(Original_ID, Full_Name, Subject, Mobile, Email, Pass, Original_ID, Original_Mobile, Original_Email, Original_Pass)
3308 End Function
3309 End Class
3310
3311 '''<summary>
3312 '''Represents the connection and commands used to retrieve and save data.
3313 '''</summary>
3314 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
3315 Global.System.ComponentModel.ToolboxItem(true), _
3316 Global.System.ComponentModel.DataObjectAttribute(true), _
3317 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
3318 ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
3319 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3320 Partial Public Class StudentTableAdapter
3321 Inherits Global.System.ComponentModel.Component
3322
3323 Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
3324
3325 Private _connection As Global.System.Data.OleDb.OleDbConnection
3326
3327 Private _transaction As Global.System.Data.OleDb.OleDbTransaction
3328
3329 Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
3330
3331 Private _clearBeforeFill As Boolean
3332
3333 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3334 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3335 Public Sub New()
3336 MyBase.New
3337 Me.ClearBeforeFill = true
3338 End Sub
3339
3340 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3341 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3342 Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
3343 Get
3344 If (Me._adapter Is Nothing) Then
3345 Me.InitAdapter
3346 End If
3347 Return Me._adapter
3348 End Get
3349 End Property
3350
3351 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3352 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3353 Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
3354 Get
3355 If (Me._connection Is Nothing) Then
3356 Me.InitConnection
3357 End If
3358 Return Me._connection
3359 End Get
3360 Set
3361 Me._connection = value
3362 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
3363 Me.Adapter.InsertCommand.Connection = value
3364 End If
3365 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
3366 Me.Adapter.DeleteCommand.Connection = value
3367 End If
3368 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
3369 Me.Adapter.UpdateCommand.Connection = value
3370 End If
3371 Dim i As Integer = 0
3372 Do While (i < Me.CommandCollection.Length)
3373 If (Not (Me.CommandCollection(i)) Is Nothing) Then
3374 CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
3375 End If
3376 i = (i + 1)
3377 Loop
3378 End Set
3379 End Property
3380
3381 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3382 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3383 Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
3384 Get
3385 Return Me._transaction
3386 End Get
3387 Set
3388 Me._transaction = value
3389 Dim i As Integer = 0
3390 Do While (i < Me.CommandCollection.Length)
3391 Me.CommandCollection(i).Transaction = Me._transaction
3392 i = (i + 1)
3393 Loop
3394 If ((Not (Me.Adapter) Is Nothing) _
3395 AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
3396 Me.Adapter.DeleteCommand.Transaction = Me._transaction
3397 End If
3398 If ((Not (Me.Adapter) Is Nothing) _
3399 AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
3400 Me.Adapter.InsertCommand.Transaction = Me._transaction
3401 End If
3402 If ((Not (Me.Adapter) Is Nothing) _
3403 AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
3404 Me.Adapter.UpdateCommand.Transaction = Me._transaction
3405 End If
3406 End Set
3407 End Property
3408
3409 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3410 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3411 Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
3412 Get
3413 If (Me._commandCollection Is Nothing) Then
3414 Me.InitCommandCollection
3415 End If
3416 Return Me._commandCollection
3417 End Get
3418 End Property
3419
3420 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3421 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3422 Public Property ClearBeforeFill() As Boolean
3423 Get
3424 Return Me._clearBeforeFill
3425 End Get
3426 Set
3427 Me._clearBeforeFill = value
3428 End Set
3429 End Property
3430
3431 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3432 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3433 Private Sub InitAdapter()
3434 Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
3435 Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
3436 tableMapping.SourceTable = "Table"
3437 tableMapping.DataSetTable = "Student"
3438 tableMapping.ColumnMappings.Add("RollNo", "RollNo")
3439 tableMapping.ColumnMappings.Add("Full Name", "Full Name")
3440 tableMapping.ColumnMappings.Add("Dept", "Dept")
3441 tableMapping.ColumnMappings.Add("Current Year", "Current Year")
3442 tableMapping.ColumnMappings.Add("Mob", "Mob")
3443 tableMapping.ColumnMappings.Add("Email", "Email")
3444 tableMapping.ColumnMappings.Add("Password", "Password")
3445 tableMapping.ColumnMappings.Add("Test Date", "Test Date")
3446 tableMapping.ColumnMappings.Add("hour", "hour")
3447 tableMapping.ColumnMappings.Add("min", "min")
3448 tableMapping.ColumnMappings.Add("sec", "sec")
3449 tableMapping.ColumnMappings.Add("Total_Ques", "Total_Ques")
3450 Me._adapter.TableMappings.Add(tableMapping)
3451 Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand()
3452 Me._adapter.DeleteCommand.Connection = Me.Connection
3453 Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Student` WHERE ((`RollNo` = ?) AND ((? = 1 AND `Dept` IS NULL) OR (`"& _
3454 "Dept` = ?)) AND ((? = 1 AND `Current Year` IS NULL) OR (`Current Year` = ?)) AND"& _
3455 " ((? = 1 AND `Mob` IS NULL) OR (`Mob` = ?)) AND ((? = 1 AND `Email` IS NULL) OR "& _
3456 "(`Email` = ?)) AND ((? = 1 AND `Password` IS NULL) OR (`Password` = ?)) AND ((? "& _
3457 "= 1 AND `Test Date` IS NULL) OR (`Test Date` = ?)) AND ((? = 1 AND `Total_Ques` "& _
3458 "IS NULL) OR (`Total_Ques` = ?)) AND ((? = 1 AND `hour` IS NULL) OR (`hour` = ?))"& _
3459 " AND ((? = 1 AND `min` IS NULL) OR (`min` = ?)) AND ((? = 1 AND `sec` IS NULL) O"& _
3460 "R (`sec` = ?)))"
3461 Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
3462 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_RollNo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RollNo", Global.System.Data.DataRowVersion.Original, false, Nothing))
3463 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Dept", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dept", Global.System.Data.DataRowVersion.Original, true, Nothing))
3464 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Dept", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dept", Global.System.Data.DataRowVersion.Original, false, Nothing))
3465 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Current_Year", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Current Year", Global.System.Data.DataRowVersion.Original, true, Nothing))
3466 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Current_Year", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Current Year", Global.System.Data.DataRowVersion.Original, false, Nothing))
3467 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Mob", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mob", Global.System.Data.DataRowVersion.Original, true, Nothing))
3468 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Mob", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mob", Global.System.Data.DataRowVersion.Original, false, Nothing))
3469 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Email", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Original, true, Nothing))
3470 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Email", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Original, false, Nothing))
3471 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Password", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Original, true, Nothing))
3472 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Password", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Original, false, Nothing))
3473 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Test_Date", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Test Date", Global.System.Data.DataRowVersion.Original, true, Nothing))
3474 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Test_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Test Date", Global.System.Data.DataRowVersion.Original, false, Nothing))
3475 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Total_Ques", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Total_Ques", Global.System.Data.DataRowVersion.Original, true, Nothing))
3476 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Total_Ques", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Total_Ques", Global.System.Data.DataRowVersion.Original, false, Nothing))
3477 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_hour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "hour", Global.System.Data.DataRowVersion.Original, true, Nothing))
3478 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_hour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "hour", Global.System.Data.DataRowVersion.Original, false, Nothing))
3479 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_min", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "min", Global.System.Data.DataRowVersion.Original, true, Nothing))
3480 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_min", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "min", Global.System.Data.DataRowVersion.Original, false, Nothing))
3481 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_sec", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "sec", Global.System.Data.DataRowVersion.Original, true, Nothing))
3482 Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_sec", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "sec", Global.System.Data.DataRowVersion.Original, false, Nothing))
3483 Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
3484 Me._adapter.InsertCommand.Connection = Me.Connection
3485 Me._adapter.InsertCommand.CommandText = "INSERT INTO `Student` (`RollNo`, `Full Name`, `Dept`, `Current Year`, `Mob`, `Ema"& _
3486 "il`, `Password`, `Test Date`, `Total_Ques`, `hour`, `min`, `sec`) VALUES (?, ?, "& _
3487 "?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
3488 Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
3489 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("RollNo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RollNo", Global.System.Data.DataRowVersion.Current, false, Nothing))
3490 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Full_Name", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Full Name", Global.System.Data.DataRowVersion.Current, false, Nothing))
3491 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Dept", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dept", Global.System.Data.DataRowVersion.Current, false, Nothing))
3492 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Current_Year", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Current Year", Global.System.Data.DataRowVersion.Current, false, Nothing))
3493 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Mob", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mob", Global.System.Data.DataRowVersion.Current, false, Nothing))
3494 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Current, false, Nothing))
3495 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Password", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Current, false, Nothing))
3496 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Test_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Test Date", Global.System.Data.DataRowVersion.Current, false, Nothing))
3497 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Total_Ques", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Total_Ques", Global.System.Data.DataRowVersion.Current, false, Nothing))
3498 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("hour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "hour", Global.System.Data.DataRowVersion.Current, false, Nothing))
3499 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("min", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "min", Global.System.Data.DataRowVersion.Current, false, Nothing))
3500 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("sec", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "sec", Global.System.Data.DataRowVersion.Current, false, Nothing))
3501 Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand()
3502 Me._adapter.UpdateCommand.Connection = Me.Connection
3503 Me._adapter.UpdateCommand.CommandText = "UPDATE `Student` SET `RollNo` = ?, `Full Name` = ?, `Dept` = ?, `Current Year` = "& _
3504 "?, `Mob` = ?, `Email` = ?, `Password` = ?, `Test Date` = ?, `Total_Ques` = ?, `h"& _
3505 "our` = ?, `min` = ?, `sec` = ? WHERE ((`RollNo` = ?) AND ((? = 1 AND `Dept` IS N"& _
3506 "ULL) OR (`Dept` = ?)) AND ((? = 1 AND `Current Year` IS NULL) OR (`Current Year`"& _
3507 " = ?)) AND ((? = 1 AND `Mob` IS NULL) OR (`Mob` = ?)) AND ((? = 1 AND `Email` IS"& _
3508 " NULL) OR (`Email` = ?)) AND ((? = 1 AND `Password` IS NULL) OR (`Password` = ?)"& _
3509 ") AND ((? = 1 AND `Test Date` IS NULL) OR (`Test Date` = ?)) AND ((? = 1 AND `To"& _
3510 "tal_Ques` IS NULL) OR (`Total_Ques` = ?)) AND ((? = 1 AND `hour` IS NULL) OR (`h"& _
3511 "our` = ?)) AND ((? = 1 AND `min` IS NULL) OR (`min` = ?)) AND ((? = 1 AND `sec` "& _
3512 "IS NULL) OR (`sec` = ?)))"
3513 Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
3514 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("RollNo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RollNo", Global.System.Data.DataRowVersion.Current, false, Nothing))
3515 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Full_Name", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Full Name", Global.System.Data.DataRowVersion.Current, false, Nothing))
3516 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Dept", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dept", Global.System.Data.DataRowVersion.Current, false, Nothing))
3517 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Current_Year", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Current Year", Global.System.Data.DataRowVersion.Current, false, Nothing))
3518 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Mob", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mob", Global.System.Data.DataRowVersion.Current, false, Nothing))
3519 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Current, false, Nothing))
3520 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Password", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Current, false, Nothing))
3521 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Test_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Test Date", Global.System.Data.DataRowVersion.Current, false, Nothing))
3522 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Total_Ques", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Total_Ques", Global.System.Data.DataRowVersion.Current, false, Nothing))
3523 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("hour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "hour", Global.System.Data.DataRowVersion.Current, false, Nothing))
3524 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("min", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "min", Global.System.Data.DataRowVersion.Current, false, Nothing))
3525 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("sec", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "sec", Global.System.Data.DataRowVersion.Current, false, Nothing))
3526 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_RollNo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RollNo", Global.System.Data.DataRowVersion.Original, false, Nothing))
3527 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Dept", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dept", Global.System.Data.DataRowVersion.Original, true, Nothing))
3528 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Dept", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dept", Global.System.Data.DataRowVersion.Original, false, Nothing))
3529 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Current_Year", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Current Year", Global.System.Data.DataRowVersion.Original, true, Nothing))
3530 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Current_Year", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Current Year", Global.System.Data.DataRowVersion.Original, false, Nothing))
3531 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Mob", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mob", Global.System.Data.DataRowVersion.Original, true, Nothing))
3532 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Mob", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Mob", Global.System.Data.DataRowVersion.Original, false, Nothing))
3533 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Email", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Original, true, Nothing))
3534 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Email", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email", Global.System.Data.DataRowVersion.Original, false, Nothing))
3535 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Password", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Original, true, Nothing))
3536 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Password", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Original, false, Nothing))
3537 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Test_Date", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Test Date", Global.System.Data.DataRowVersion.Original, true, Nothing))
3538 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Test_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Test Date", Global.System.Data.DataRowVersion.Original, false, Nothing))
3539 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Total_Ques", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Total_Ques", Global.System.Data.DataRowVersion.Original, true, Nothing))
3540 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Total_Ques", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Total_Ques", Global.System.Data.DataRowVersion.Original, false, Nothing))
3541 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_hour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "hour", Global.System.Data.DataRowVersion.Original, true, Nothing))
3542 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_hour", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "hour", Global.System.Data.DataRowVersion.Original, false, Nothing))
3543 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_min", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "min", Global.System.Data.DataRowVersion.Original, true, Nothing))
3544 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_min", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "min", Global.System.Data.DataRowVersion.Original, false, Nothing))
3545 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_sec", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "sec", Global.System.Data.DataRowVersion.Original, true, Nothing))
3546 Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_sec", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "sec", Global.System.Data.DataRowVersion.Original, false, Nothing))
3547 End Sub
3548
3549 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3550 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3551 Private Sub InitConnection()
3552 Me._connection = New Global.System.Data.OleDb.OleDbConnection()
3553 Me._connection.ConnectionString = Global.ExaminationSystem.My.MySettings.Default.MainDBConnectionString
3554 End Sub
3555
3556 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3557 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3558 Private Sub InitCommandCollection()
3559 Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
3560 Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
3561 Me._commandCollection(0).Connection = Me.Connection
3562 Me._commandCollection(0).CommandText = "SELECT RollNo, [Full Name], Dept, [Current Year], Mob, Email, [Password], [Test D"& _
3563 "ate], Total_Ques, [hour], [min], sec FROM Student"
3564 Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
3565 End Sub
3566
3567 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3568 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3569 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3570 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
3571 Public Overloads Overridable Function Fill(ByVal dataTable As MainDBDataSet.StudentDataTable) As Integer
3572 Me.Adapter.SelectCommand = Me.CommandCollection(0)
3573 If (Me.ClearBeforeFill = true) Then
3574 dataTable.Clear
3575 End If
3576 Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
3577 Return returnValue
3578 End Function
3579
3580 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3581 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3582 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3583 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
3584 Public Overloads Overridable Function GetData() As MainDBDataSet.StudentDataTable
3585 Me.Adapter.SelectCommand = Me.CommandCollection(0)
3586 Dim dataTable As MainDBDataSet.StudentDataTable = New MainDBDataSet.StudentDataTable()
3587 Me.Adapter.Fill(dataTable)
3588 Return dataTable
3589 End Function
3590
3591 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3592 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3593 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3594 Public Overloads Overridable Function Update(ByVal dataTable As MainDBDataSet.StudentDataTable) As Integer
3595 Return Me.Adapter.Update(dataTable)
3596 End Function
3597
3598 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3599 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3600 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3601 Public Overloads Overridable Function Update(ByVal dataSet As MainDBDataSet) As Integer
3602 Return Me.Adapter.Update(dataSet, "Student")
3603 End Function
3604
3605 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3606 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3607 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3608 Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
3609 Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
3610 End Function
3611
3612 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3613 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3614 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3615 Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
3616 Return Me.Adapter.Update(dataRows)
3617 End Function
3618
3619 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3620 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3621 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3622 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
3623 Public Overloads Overridable Function Delete(ByVal Original_RollNo As Integer, ByVal Original_Dept As String, ByVal Original_Current_Year As String, ByVal Original_Mob As String, ByVal Original_Email As String, ByVal Original_Password As String, ByVal Original_Test_Date As Global.System.Nullable(Of Date), ByVal Original_Total_Ques As Global.System.Nullable(Of Integer), ByVal Original_hour As Global.System.Nullable(Of Integer), ByVal Original_min As Global.System.Nullable(Of Integer), ByVal Original_sec As Global.System.Nullable(Of Integer)) As Integer
3624 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_RollNo,Integer)
3625 If (Original_Dept Is Nothing) Then
3626 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object)
3627 Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value
3628 Else
3629 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object)
3630 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Dept,String)
3631 End If
3632 If (Original_Current_Year Is Nothing) Then
3633 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
3634 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
3635 Else
3636 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
3637 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Current_Year,String)
3638 End If
3639 If (Original_Mob Is Nothing) Then
3640 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
3641 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
3642 Else
3643 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
3644 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Mob,String)
3645 End If
3646 If (Original_Email Is Nothing) Then
3647 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
3648 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
3649 Else
3650 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
3651 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Email,String)
3652 End If
3653 If (Original_Password Is Nothing) Then
3654 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
3655 Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
3656 Else
3657 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
3658 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Password,String)
3659 End If
3660 If (Original_Test_Date.HasValue = true) Then
3661 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object)
3662 Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Test_Date.Value,Date)
3663 Else
3664 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object)
3665 Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value
3666 End If
3667 If (Original_Total_Ques.HasValue = true) Then
3668 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object)
3669 Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Total_Ques.Value,Integer)
3670 Else
3671 Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object)
3672 Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value
3673 End If
3674 If (Original_hour.HasValue = true) Then
3675 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object)
3676 Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_hour.Value,Integer)
3677 Else
3678 Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object)
3679 Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value
3680 End If
3681 If (Original_min.HasValue = true) Then
3682 Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object)
3683 Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_min.Value,Integer)
3684 Else
3685 Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object)
3686 Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value
3687 End If
3688 If (Original_sec.HasValue = true) Then
3689 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object)
3690 Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_sec.Value,Integer)
3691 Else
3692 Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object)
3693 Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value
3694 End If
3695 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
3696 If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
3697 <> Global.System.Data.ConnectionState.Open) Then
3698 Me.Adapter.DeleteCommand.Connection.Open
3699 End If
3700 Try
3701 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
3702 Return returnValue
3703 Finally
3704 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
3705 Me.Adapter.DeleteCommand.Connection.Close
3706 End If
3707 End Try
3708 End Function
3709
3710 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3711 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3712 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3713 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
3714 Public Overloads Overridable Function Insert(ByVal RollNo As Integer, ByVal Full_Name As String, ByVal Dept As String, ByVal Current_Year As String, ByVal Mob As String, ByVal Email As String, ByVal Password As String, ByVal Test_Date As Global.System.Nullable(Of Date), ByVal Total_Ques As Global.System.Nullable(Of Integer), ByVal hour As Global.System.Nullable(Of Integer), ByVal min As Global.System.Nullable(Of Integer), ByVal sec As Global.System.Nullable(Of Integer)) As Integer
3715 Me.Adapter.InsertCommand.Parameters(0).Value = CType(RollNo,Integer)
3716 If (Full_Name Is Nothing) Then
3717 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
3718 Else
3719 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Full_Name,String)
3720 End If
3721 If (Dept Is Nothing) Then
3722 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
3723 Else
3724 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Dept,String)
3725 End If
3726 If (Current_Year Is Nothing) Then
3727 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
3728 Else
3729 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Current_Year,String)
3730 End If
3731 If (Mob Is Nothing) Then
3732 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
3733 Else
3734 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Mob,String)
3735 End If
3736 If (Email Is Nothing) Then
3737 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
3738 Else
3739 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Email,String)
3740 End If
3741 If (Password Is Nothing) Then
3742 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
3743 Else
3744 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Password,String)
3745 End If
3746 If (Test_Date.HasValue = true) Then
3747 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Test_Date.Value,Date)
3748 Else
3749 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
3750 End If
3751 If (Total_Ques.HasValue = true) Then
3752 Me.Adapter.InsertCommand.Parameters(8).Value = CType(Total_Ques.Value,Integer)
3753 Else
3754 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
3755 End If
3756 If (hour.HasValue = true) Then
3757 Me.Adapter.InsertCommand.Parameters(9).Value = CType(hour.Value,Integer)
3758 Else
3759 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
3760 End If
3761 If (min.HasValue = true) Then
3762 Me.Adapter.InsertCommand.Parameters(10).Value = CType(min.Value,Integer)
3763 Else
3764 Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
3765 End If
3766 If (sec.HasValue = true) Then
3767 Me.Adapter.InsertCommand.Parameters(11).Value = CType(sec.Value,Integer)
3768 Else
3769 Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value
3770 End If
3771 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
3772 If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
3773 <> Global.System.Data.ConnectionState.Open) Then
3774 Me.Adapter.InsertCommand.Connection.Open
3775 End If
3776 Try
3777 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
3778 Return returnValue
3779 Finally
3780 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
3781 Me.Adapter.InsertCommand.Connection.Close
3782 End If
3783 End Try
3784 End Function
3785
3786 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3787 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3788 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3789 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
3790 Public Overloads Overridable Function Update( _
3791 ByVal RollNo As Integer, _
3792 ByVal Full_Name As String, _
3793 ByVal Dept As String, _
3794 ByVal Current_Year As String, _
3795 ByVal Mob As String, _
3796 ByVal Email As String, _
3797 ByVal Password As String, _
3798 ByVal Test_Date As Global.System.Nullable(Of Date), _
3799 ByVal Total_Ques As Global.System.Nullable(Of Integer), _
3800 ByVal hour As Global.System.Nullable(Of Integer), _
3801 ByVal min As Global.System.Nullable(Of Integer), _
3802 ByVal sec As Global.System.Nullable(Of Integer), _
3803 ByVal Original_RollNo As Integer, _
3804 ByVal Original_Dept As String, _
3805 ByVal Original_Current_Year As String, _
3806 ByVal Original_Mob As String, _
3807 ByVal Original_Email As String, _
3808 ByVal Original_Password As String, _
3809 ByVal Original_Test_Date As Global.System.Nullable(Of Date), _
3810 ByVal Original_Total_Ques As Global.System.Nullable(Of Integer), _
3811 ByVal Original_hour As Global.System.Nullable(Of Integer), _
3812 ByVal Original_min As Global.System.Nullable(Of Integer), _
3813 ByVal Original_sec As Global.System.Nullable(Of Integer)) As Integer
3814 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(RollNo,Integer)
3815 If (Full_Name Is Nothing) Then
3816 Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
3817 Else
3818 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Full_Name,String)
3819 End If
3820 If (Dept Is Nothing) Then
3821 Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
3822 Else
3823 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Dept,String)
3824 End If
3825 If (Current_Year Is Nothing) Then
3826 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
3827 Else
3828 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Current_Year,String)
3829 End If
3830 If (Mob Is Nothing) Then
3831 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
3832 Else
3833 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Mob,String)
3834 End If
3835 If (Email Is Nothing) Then
3836 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
3837 Else
3838 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Email,String)
3839 End If
3840 If (Password Is Nothing) Then
3841 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
3842 Else
3843 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Password,String)
3844 End If
3845 If (Test_Date.HasValue = true) Then
3846 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Test_Date.Value,Date)
3847 Else
3848 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
3849 End If
3850 If (Total_Ques.HasValue = true) Then
3851 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Total_Ques.Value,Integer)
3852 Else
3853 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
3854 End If
3855 If (hour.HasValue = true) Then
3856 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(hour.Value,Integer)
3857 Else
3858 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
3859 End If
3860 If (min.HasValue = true) Then
3861 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(min.Value,Integer)
3862 Else
3863 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
3864 End If
3865 If (sec.HasValue = true) Then
3866 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(sec.Value,Integer)
3867 Else
3868 Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
3869 End If
3870 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_RollNo,Integer)
3871 If (Original_Dept Is Nothing) Then
3872 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
3873 Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
3874 Else
3875 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
3876 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Dept,String)
3877 End If
3878 If (Original_Current_Year Is Nothing) Then
3879 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
3880 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
3881 Else
3882 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
3883 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Current_Year,String)
3884 End If
3885 If (Original_Mob Is Nothing) Then
3886 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object)
3887 Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
3888 Else
3889 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object)
3890 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Mob,String)
3891 End If
3892 If (Original_Email Is Nothing) Then
3893 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
3894 Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
3895 Else
3896 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
3897 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Email,String)
3898 End If
3899 If (Original_Password Is Nothing) Then
3900 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object)
3901 Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value
3902 Else
3903 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object)
3904 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_Password,String)
3905 End If
3906 If (Original_Test_Date.HasValue = true) Then
3907 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object)
3908 Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_Test_Date.Value,Date)
3909 Else
3910 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object)
3911 Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value
3912 End If
3913 If (Original_Total_Ques.HasValue = true) Then
3914 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object)
3915 Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_Total_Ques.Value,Integer)
3916 Else
3917 Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object)
3918 Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value
3919 End If
3920 If (Original_hour.HasValue = true) Then
3921 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object)
3922 Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_hour.Value,Integer)
3923 Else
3924 Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object)
3925 Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value
3926 End If
3927 If (Original_min.HasValue = true) Then
3928 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object)
3929 Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_min.Value,Integer)
3930 Else
3931 Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object)
3932 Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value
3933 End If
3934 If (Original_sec.HasValue = true) Then
3935 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object)
3936 Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_sec.Value,Integer)
3937 Else
3938 Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object)
3939 Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value
3940 End If
3941 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
3942 If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
3943 <> Global.System.Data.ConnectionState.Open) Then
3944 Me.Adapter.UpdateCommand.Connection.Open
3945 End If
3946 Try
3947 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
3948 Return returnValue
3949 Finally
3950 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
3951 Me.Adapter.UpdateCommand.Connection.Close
3952 End If
3953 End Try
3954 End Function
3955
3956 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3957 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3958 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
3959 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
3960 Public Overloads Overridable Function Update( _
3961 ByVal Full_Name As String, _
3962 ByVal Dept As String, _
3963 ByVal Current_Year As String, _
3964 ByVal Mob As String, _
3965 ByVal Email As String, _
3966 ByVal Password As String, _
3967 ByVal Test_Date As Global.System.Nullable(Of Date), _
3968 ByVal Total_Ques As Global.System.Nullable(Of Integer), _
3969 ByVal hour As Global.System.Nullable(Of Integer), _
3970 ByVal min As Global.System.Nullable(Of Integer), _
3971 ByVal sec As Global.System.Nullable(Of Integer), _
3972 ByVal Original_RollNo As Integer, _
3973 ByVal Original_Dept As String, _
3974 ByVal Original_Current_Year As String, _
3975 ByVal Original_Mob As String, _
3976 ByVal Original_Email As String, _
3977 ByVal Original_Password As String, _
3978 ByVal Original_Test_Date As Global.System.Nullable(Of Date), _
3979 ByVal Original_Total_Ques As Global.System.Nullable(Of Integer), _
3980 ByVal Original_hour As Global.System.Nullable(Of Integer), _
3981 ByVal Original_min As Global.System.Nullable(Of Integer), _
3982 ByVal Original_sec As Global.System.Nullable(Of Integer)) As Integer
3983 Return Me.Update(Original_RollNo, Full_Name, Dept, Current_Year, Mob, Email, Password, Test_Date, Total_Ques, hour, min, sec, Original_RollNo, Original_Dept, Original_Current_Year, Original_Mob, Original_Email, Original_Password, Original_Test_Date, Original_Total_Ques, Original_hour, Original_min, Original_sec)
3984 End Function
3985 End Class
3986
3987 '''<summary>
3988 '''Represents the connection and commands used to retrieve and save data.
3989 '''</summary>
3990 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
3991 Global.System.ComponentModel.ToolboxItem(true), _
3992 Global.System.ComponentModel.DataObjectAttribute(true), _
3993 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
3994 ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
3995 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
3996 Partial Public Class QuesTableAdapter
3997 Inherits Global.System.ComponentModel.Component
3998
3999 Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
4000
4001 Private _connection As Global.System.Data.OleDb.OleDbConnection
4002
4003 Private _transaction As Global.System.Data.OleDb.OleDbTransaction
4004
4005 Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
4006
4007 Private _clearBeforeFill As Boolean
4008
4009 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4010 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4011 Public Sub New()
4012 MyBase.New
4013 Me.ClearBeforeFill = true
4014 End Sub
4015
4016 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4017 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4018 Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
4019 Get
4020 If (Me._adapter Is Nothing) Then
4021 Me.InitAdapter
4022 End If
4023 Return Me._adapter
4024 End Get
4025 End Property
4026
4027 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4028 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4029 Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
4030 Get
4031 If (Me._connection Is Nothing) Then
4032 Me.InitConnection
4033 End If
4034 Return Me._connection
4035 End Get
4036 Set
4037 Me._connection = value
4038 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
4039 Me.Adapter.InsertCommand.Connection = value
4040 End If
4041 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
4042 Me.Adapter.DeleteCommand.Connection = value
4043 End If
4044 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
4045 Me.Adapter.UpdateCommand.Connection = value
4046 End If
4047 Dim i As Integer = 0
4048 Do While (i < Me.CommandCollection.Length)
4049 If (Not (Me.CommandCollection(i)) Is Nothing) Then
4050 CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
4051 End If
4052 i = (i + 1)
4053 Loop
4054 End Set
4055 End Property
4056
4057 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4058 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4059 Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
4060 Get
4061 Return Me._transaction
4062 End Get
4063 Set
4064 Me._transaction = value
4065 Dim i As Integer = 0
4066 Do While (i < Me.CommandCollection.Length)
4067 Me.CommandCollection(i).Transaction = Me._transaction
4068 i = (i + 1)
4069 Loop
4070 If ((Not (Me.Adapter) Is Nothing) _
4071 AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
4072 Me.Adapter.DeleteCommand.Transaction = Me._transaction
4073 End If
4074 If ((Not (Me.Adapter) Is Nothing) _
4075 AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
4076 Me.Adapter.InsertCommand.Transaction = Me._transaction
4077 End If
4078 If ((Not (Me.Adapter) Is Nothing) _
4079 AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
4080 Me.Adapter.UpdateCommand.Transaction = Me._transaction
4081 End If
4082 End Set
4083 End Property
4084
4085 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4086 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4087 Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
4088 Get
4089 If (Me._commandCollection Is Nothing) Then
4090 Me.InitCommandCollection
4091 End If
4092 Return Me._commandCollection
4093 End Get
4094 End Property
4095
4096 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4097 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4098 Public Property ClearBeforeFill() As Boolean
4099 Get
4100 Return Me._clearBeforeFill
4101 End Get
4102 Set
4103 Me._clearBeforeFill = value
4104 End Set
4105 End Property
4106
4107 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4108 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4109 Private Sub InitAdapter()
4110 Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
4111 Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
4112 tableMapping.SourceTable = "Table"
4113 tableMapping.DataSetTable = "Ques"
4114 tableMapping.ColumnMappings.Add("Question", "Question")
4115 tableMapping.ColumnMappings.Add("Opt1", "Opt1")
4116 tableMapping.ColumnMappings.Add("Opt2", "Opt2")
4117 tableMapping.ColumnMappings.Add("Opt3", "Opt3")
4118 tableMapping.ColumnMappings.Add("Opt4", "Opt4")
4119 tableMapping.ColumnMappings.Add("Answer", "Answer")
4120 tableMapping.ColumnMappings.Add("QuesNo", "QuesNo")
4121 Me._adapter.TableMappings.Add(tableMapping)
4122 Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
4123 Me._adapter.InsertCommand.Connection = Me.Connection
4124 Me._adapter.InsertCommand.CommandText = "INSERT INTO `Ques` (`Question`, `Opt1`, `Opt2`, `Opt3`, `Opt4`, `Answer`, `QuesNo"& _
4125 "`) VALUES (?, ?, ?, ?, ?, ?, ?)"
4126 Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
4127 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Question", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Question", Global.System.Data.DataRowVersion.Current, false, Nothing))
4128 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opt1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opt1", Global.System.Data.DataRowVersion.Current, false, Nothing))
4129 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opt2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opt2", Global.System.Data.DataRowVersion.Current, false, Nothing))
4130 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opt3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opt3", Global.System.Data.DataRowVersion.Current, false, Nothing))
4131 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opt4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opt4", Global.System.Data.DataRowVersion.Current, false, Nothing))
4132 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Answer", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Answer", Global.System.Data.DataRowVersion.Current, false, Nothing))
4133 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("QuesNo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "QuesNo", Global.System.Data.DataRowVersion.Current, false, Nothing))
4134 End Sub
4135
4136 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4137 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4138 Private Sub InitConnection()
4139 Me._connection = New Global.System.Data.OleDb.OleDbConnection()
4140 Me._connection.ConnectionString = Global.ExaminationSystem.My.MySettings.Default.MainDBConnectionString
4141 End Sub
4142
4143 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4144 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4145 Private Sub InitCommandCollection()
4146 Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
4147 Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
4148 Me._commandCollection(0).Connection = Me.Connection
4149 Me._commandCollection(0).CommandText = "SELECT Question, Opt1, Opt2, Opt3, Opt4, Answer, QuesNo FROM Ques"
4150 Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
4151 End Sub
4152
4153 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4154 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4155 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4156 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
4157 Public Overloads Overridable Function Fill(ByVal dataTable As MainDBDataSet.QuesDataTable) As Integer
4158 Me.Adapter.SelectCommand = Me.CommandCollection(0)
4159 If (Me.ClearBeforeFill = true) Then
4160 dataTable.Clear
4161 End If
4162 Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
4163 Return returnValue
4164 End Function
4165
4166 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4167 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4168 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4169 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
4170 Public Overloads Overridable Function GetData() As MainDBDataSet.QuesDataTable
4171 Me.Adapter.SelectCommand = Me.CommandCollection(0)
4172 Dim dataTable As MainDBDataSet.QuesDataTable = New MainDBDataSet.QuesDataTable()
4173 Me.Adapter.Fill(dataTable)
4174 Return dataTable
4175 End Function
4176
4177 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4178 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4179 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4180 Public Overloads Overridable Function Update(ByVal dataTable As MainDBDataSet.QuesDataTable) As Integer
4181 Return Me.Adapter.Update(dataTable)
4182 End Function
4183
4184 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4185 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4186 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4187 Public Overloads Overridable Function Update(ByVal dataSet As MainDBDataSet) As Integer
4188 Return Me.Adapter.Update(dataSet, "Ques")
4189 End Function
4190
4191 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4192 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4193 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4194 Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
4195 Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
4196 End Function
4197
4198 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4199 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4200 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4201 Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
4202 Return Me.Adapter.Update(dataRows)
4203 End Function
4204
4205 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4206 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4207 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4208 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
4209 Public Overloads Overridable Function Insert(ByVal Question As String, ByVal Opt1 As String, ByVal Opt2 As String, ByVal Opt3 As String, ByVal Opt4 As String, ByVal Answer As String, ByVal QuesNo As Global.System.Nullable(Of Integer)) As Integer
4210 If (Question Is Nothing) Then
4211 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
4212 Else
4213 Me.Adapter.InsertCommand.Parameters(0).Value = CType(Question,String)
4214 End If
4215 If (Opt1 Is Nothing) Then
4216 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
4217 Else
4218 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Opt1,String)
4219 End If
4220 If (Opt2 Is Nothing) Then
4221 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
4222 Else
4223 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Opt2,String)
4224 End If
4225 If (Opt3 Is Nothing) Then
4226 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
4227 Else
4228 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Opt3,String)
4229 End If
4230 If (Opt4 Is Nothing) Then
4231 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
4232 Else
4233 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Opt4,String)
4234 End If
4235 If (Answer Is Nothing) Then
4236 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
4237 Else
4238 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Answer,String)
4239 End If
4240 If (QuesNo.HasValue = true) Then
4241 Me.Adapter.InsertCommand.Parameters(6).Value = CType(QuesNo.Value,Integer)
4242 Else
4243 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
4244 End If
4245 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
4246 If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
4247 <> Global.System.Data.ConnectionState.Open) Then
4248 Me.Adapter.InsertCommand.Connection.Open
4249 End If
4250 Try
4251 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
4252 Return returnValue
4253 Finally
4254 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
4255 Me.Adapter.InsertCommand.Connection.Close
4256 End If
4257 End Try
4258 End Function
4259 End Class
4260
4261 '''<summary>
4262 '''Represents the connection and commands used to retrieve and save data.
4263 '''</summary>
4264 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
4265 Global.System.ComponentModel.ToolboxItem(true), _
4266 Global.System.ComponentModel.DataObjectAttribute(true), _
4267 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
4268 ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
4269 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4270 Partial Public Class ResultTableAdapter
4271 Inherits Global.System.ComponentModel.Component
4272
4273 Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter
4274
4275 Private _connection As Global.System.Data.OleDb.OleDbConnection
4276
4277 Private _transaction As Global.System.Data.OleDb.OleDbTransaction
4278
4279 Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand
4280
4281 Private _clearBeforeFill As Boolean
4282
4283 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4284 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4285 Public Sub New()
4286 MyBase.New
4287 Me.ClearBeforeFill = true
4288 End Sub
4289
4290 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4291 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4292 Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter
4293 Get
4294 If (Me._adapter Is Nothing) Then
4295 Me.InitAdapter
4296 End If
4297 Return Me._adapter
4298 End Get
4299 End Property
4300
4301 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4302 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4303 Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
4304 Get
4305 If (Me._connection Is Nothing) Then
4306 Me.InitConnection
4307 End If
4308 Return Me._connection
4309 End Get
4310 Set
4311 Me._connection = value
4312 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
4313 Me.Adapter.InsertCommand.Connection = value
4314 End If
4315 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
4316 Me.Adapter.DeleteCommand.Connection = value
4317 End If
4318 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
4319 Me.Adapter.UpdateCommand.Connection = value
4320 End If
4321 Dim i As Integer = 0
4322 Do While (i < Me.CommandCollection.Length)
4323 If (Not (Me.CommandCollection(i)) Is Nothing) Then
4324 CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value
4325 End If
4326 i = (i + 1)
4327 Loop
4328 End Set
4329 End Property
4330
4331 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4332 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4333 Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction
4334 Get
4335 Return Me._transaction
4336 End Get
4337 Set
4338 Me._transaction = value
4339 Dim i As Integer = 0
4340 Do While (i < Me.CommandCollection.Length)
4341 Me.CommandCollection(i).Transaction = Me._transaction
4342 i = (i + 1)
4343 Loop
4344 If ((Not (Me.Adapter) Is Nothing) _
4345 AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
4346 Me.Adapter.DeleteCommand.Transaction = Me._transaction
4347 End If
4348 If ((Not (Me.Adapter) Is Nothing) _
4349 AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
4350 Me.Adapter.InsertCommand.Transaction = Me._transaction
4351 End If
4352 If ((Not (Me.Adapter) Is Nothing) _
4353 AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
4354 Me.Adapter.UpdateCommand.Transaction = Me._transaction
4355 End If
4356 End Set
4357 End Property
4358
4359 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4360 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4361 Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand()
4362 Get
4363 If (Me._commandCollection Is Nothing) Then
4364 Me.InitCommandCollection
4365 End If
4366 Return Me._commandCollection
4367 End Get
4368 End Property
4369
4370 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4371 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4372 Public Property ClearBeforeFill() As Boolean
4373 Get
4374 Return Me._clearBeforeFill
4375 End Get
4376 Set
4377 Me._clearBeforeFill = value
4378 End Set
4379 End Property
4380
4381 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4382 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4383 Private Sub InitAdapter()
4384 Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter()
4385 Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
4386 tableMapping.SourceTable = "Table"
4387 tableMapping.DataSetTable = "Result"
4388 tableMapping.ColumnMappings.Add("RollNo", "RollNo")
4389 tableMapping.ColumnMappings.Add("Name", "Name")
4390 tableMapping.ColumnMappings.Add("Current_Year", "Current_Year")
4391 tableMapping.ColumnMappings.Add("Dept", "Dept")
4392 tableMapping.ColumnMappings.Add("Total_Ques", "Total_Ques")
4393 tableMapping.ColumnMappings.Add("Attempted_Ques", "Attempted_Ques")
4394 tableMapping.ColumnMappings.Add("Right_Answers", "Right_Answers")
4395 tableMapping.ColumnMappings.Add("Marks_Obtained", "Marks_Obtained")
4396 Me._adapter.TableMappings.Add(tableMapping)
4397 Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand()
4398 Me._adapter.InsertCommand.Connection = Me.Connection
4399 Me._adapter.InsertCommand.CommandText = "INSERT INTO `Result` (`RollNo`, `Name`, `Current_Year`, `Dept`, `Total_Ques`, `At"& _
4400 "tempted_Ques`, `Right_Answers`, `Marks_Obtained`) VALUES (?, ?, ?, ?, ?, ?, ?, ?"& _
4401 ")"
4402 Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
4403 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("RollNo", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "RollNo", Global.System.Data.DataRowVersion.Current, false, Nothing))
4404 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Name", Global.System.Data.DataRowVersion.Current, false, Nothing))
4405 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Current_Year", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Current_Year", Global.System.Data.DataRowVersion.Current, false, Nothing))
4406 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Dept", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Dept", Global.System.Data.DataRowVersion.Current, false, Nothing))
4407 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Total_Ques", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Total_Ques", Global.System.Data.DataRowVersion.Current, false, Nothing))
4408 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Attempted_Ques", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Attempted_Ques", Global.System.Data.DataRowVersion.Current, false, Nothing))
4409 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Right_Answers", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Right_Answers", Global.System.Data.DataRowVersion.Current, false, Nothing))
4410 Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Marks_Obtained", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Marks_Obtained", Global.System.Data.DataRowVersion.Current, false, Nothing))
4411 End Sub
4412
4413 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4414 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4415 Private Sub InitConnection()
4416 Me._connection = New Global.System.Data.OleDb.OleDbConnection()
4417 Me._connection.ConnectionString = Global.ExaminationSystem.My.MySettings.Default.MainDBConnectionString
4418 End Sub
4419
4420 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4421 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4422 Private Sub InitCommandCollection()
4423 Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {}
4424 Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand()
4425 Me._commandCollection(0).Connection = Me.Connection
4426 Me._commandCollection(0).CommandText = "SELECT RollNo, Name, Current_Year, Dept, Total_Ques, Attempted_Ques, Right_Answer"& _
4427 "s, Marks_Obtained FROM Result"
4428 Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
4429 End Sub
4430
4431 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4432 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4433 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4434 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
4435 Public Overloads Overridable Function Fill(ByVal dataTable As MainDBDataSet.ResultDataTable) As Integer
4436 Me.Adapter.SelectCommand = Me.CommandCollection(0)
4437 If (Me.ClearBeforeFill = true) Then
4438 dataTable.Clear
4439 End If
4440 Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
4441 Return returnValue
4442 End Function
4443
4444 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4445 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4446 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4447 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
4448 Public Overloads Overridable Function GetData() As MainDBDataSet.ResultDataTable
4449 Me.Adapter.SelectCommand = Me.CommandCollection(0)
4450 Dim dataTable As MainDBDataSet.ResultDataTable = New MainDBDataSet.ResultDataTable()
4451 Me.Adapter.Fill(dataTable)
4452 Return dataTable
4453 End Function
4454
4455 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4456 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4457 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4458 Public Overloads Overridable Function Update(ByVal dataTable As MainDBDataSet.ResultDataTable) As Integer
4459 Return Me.Adapter.Update(dataTable)
4460 End Function
4461
4462 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4463 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4464 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4465 Public Overloads Overridable Function Update(ByVal dataSet As MainDBDataSet) As Integer
4466 Return Me.Adapter.Update(dataSet, "Result")
4467 End Function
4468
4469 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4470 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4471 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4472 Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
4473 Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
4474 End Function
4475
4476 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4477 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4478 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
4479 Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
4480 Return Me.Adapter.Update(dataRows)
4481 End Function
4482
4483 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4484 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4485 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
4486 Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
4487 Public Overloads Overridable Function Insert(ByVal RollNo As Global.System.Nullable(Of Integer), ByVal Name As String, ByVal Current_Year As String, ByVal Dept As String, ByVal Total_Ques As Global.System.Nullable(Of Integer), ByVal Attempted_Ques As Global.System.Nullable(Of Integer), ByVal Right_Answers As Global.System.Nullable(Of Integer), ByVal Marks_Obtained As Global.System.Nullable(Of Integer)) As Integer
4488 If (RollNo.HasValue = true) Then
4489 Me.Adapter.InsertCommand.Parameters(0).Value = CType(RollNo.Value,Integer)
4490 Else
4491 Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
4492 End If
4493 If (Name Is Nothing) Then
4494 Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
4495 Else
4496 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Name,String)
4497 End If
4498 If (Current_Year Is Nothing) Then
4499 Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
4500 Else
4501 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Current_Year,String)
4502 End If
4503 If (Dept Is Nothing) Then
4504 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
4505 Else
4506 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Dept,String)
4507 End If
4508 If (Total_Ques.HasValue = true) Then
4509 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Total_Ques.Value,Integer)
4510 Else
4511 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
4512 End If
4513 If (Attempted_Ques.HasValue = true) Then
4514 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Attempted_Ques.Value,Integer)
4515 Else
4516 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
4517 End If
4518 If (Right_Answers.HasValue = true) Then
4519 Me.Adapter.InsertCommand.Parameters(6).Value = CType(Right_Answers.Value,Integer)
4520 Else
4521 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
4522 End If
4523 If (Marks_Obtained.HasValue = true) Then
4524 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Marks_Obtained.Value,Integer)
4525 Else
4526 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
4527 End If
4528 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
4529 If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
4530 <> Global.System.Data.ConnectionState.Open) Then
4531 Me.Adapter.InsertCommand.Connection.Open
4532 End If
4533 Try
4534 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
4535 Return returnValue
4536 Finally
4537 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
4538 Me.Adapter.InsertCommand.Connection.Close
4539 End If
4540 End Try
4541 End Function
4542 End Class
4543
4544 '''<summary>
4545 '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
4546 '''</summary>
4547 <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
4548 Global.System.ComponentModel.ToolboxItem(true), _
4549 Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
4550 "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
4551 Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
4552 Partial Public Class TableAdapterManager
4553 Inherits Global.System.ComponentModel.Component
4554
4555 Private _updateOrder As UpdateOrderOption
4556
4557 Private _adminTableAdapter As AdminTableAdapter
4558
4559 Private _studentTableAdapter As StudentTableAdapter
4560
4561 Private _quesTableAdapter As QuesTableAdapter
4562
4563 Private _resultTableAdapter As ResultTableAdapter
4564
4565 Private _backupDataSetBeforeUpdate As Boolean
4566
4567 Private _connection As Global.System.Data.IDbConnection
4568
4569 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4570 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4571 Public Property UpdateOrder() As UpdateOrderOption
4572 Get
4573 Return Me._updateOrder
4574 End Get
4575 Set
4576 Me._updateOrder = value
4577 End Set
4578 End Property
4579
4580 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4581 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4582 Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
4583 "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
4584 "a", "System.Drawing.Design.UITypeEditor")> _
4585 Public Property AdminTableAdapter() As AdminTableAdapter
4586 Get
4587 Return Me._adminTableAdapter
4588 End Get
4589 Set
4590 Me._adminTableAdapter = value
4591 End Set
4592 End Property
4593
4594 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4595 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4596 Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
4597 "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
4598 "a", "System.Drawing.Design.UITypeEditor")> _
4599 Public Property StudentTableAdapter() As StudentTableAdapter
4600 Get
4601 Return Me._studentTableAdapter
4602 End Get
4603 Set
4604 Me._studentTableAdapter = value
4605 End Set
4606 End Property
4607
4608 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4609 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4610 Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
4611 "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
4612 "a", "System.Drawing.Design.UITypeEditor")> _
4613 Public Property QuesTableAdapter() As QuesTableAdapter
4614 Get
4615 Return Me._quesTableAdapter
4616 End Get
4617 Set
4618 Me._quesTableAdapter = value
4619 End Set
4620 End Property
4621
4622 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4623 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4624 Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
4625 "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
4626 "a", "System.Drawing.Design.UITypeEditor")> _
4627 Public Property ResultTableAdapter() As ResultTableAdapter
4628 Get
4629 Return Me._resultTableAdapter
4630 End Get
4631 Set
4632 Me._resultTableAdapter = value
4633 End Set
4634 End Property
4635
4636 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4637 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4638 Public Property BackupDataSetBeforeUpdate() As Boolean
4639 Get
4640 Return Me._backupDataSetBeforeUpdate
4641 End Get
4642 Set
4643 Me._backupDataSetBeforeUpdate = value
4644 End Set
4645 End Property
4646
4647 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4648 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4649 Global.System.ComponentModel.Browsable(false)> _
4650 Public Property Connection() As Global.System.Data.IDbConnection
4651 Get
4652 If (Not (Me._connection) Is Nothing) Then
4653 Return Me._connection
4654 End If
4655 If ((Not (Me._adminTableAdapter) Is Nothing) _
4656 AndAlso (Not (Me._adminTableAdapter.Connection) Is Nothing)) Then
4657 Return Me._adminTableAdapter.Connection
4658 End If
4659 If ((Not (Me._studentTableAdapter) Is Nothing) _
4660 AndAlso (Not (Me._studentTableAdapter.Connection) Is Nothing)) Then
4661 Return Me._studentTableAdapter.Connection
4662 End If
4663 If ((Not (Me._quesTableAdapter) Is Nothing) _
4664 AndAlso (Not (Me._quesTableAdapter.Connection) Is Nothing)) Then
4665 Return Me._quesTableAdapter.Connection
4666 End If
4667 If ((Not (Me._resultTableAdapter) Is Nothing) _
4668 AndAlso (Not (Me._resultTableAdapter.Connection) Is Nothing)) Then
4669 Return Me._resultTableAdapter.Connection
4670 End If
4671 Return Nothing
4672 End Get
4673 Set
4674 Me._connection = value
4675 End Set
4676 End Property
4677
4678 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4679 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4680 Global.System.ComponentModel.Browsable(false)> _
4681 Public ReadOnly Property TableAdapterInstanceCount() As Integer
4682 Get
4683 Dim count As Integer = 0
4684 If (Not (Me._adminTableAdapter) Is Nothing) Then
4685 count = (count + 1)
4686 End If
4687 If (Not (Me._studentTableAdapter) Is Nothing) Then
4688 count = (count + 1)
4689 End If
4690 If (Not (Me._quesTableAdapter) Is Nothing) Then
4691 count = (count + 1)
4692 End If
4693 If (Not (Me._resultTableAdapter) Is Nothing) Then
4694 count = (count + 1)
4695 End If
4696 Return count
4697 End Get
4698 End Property
4699
4700 '''<summary>
4701 '''Update rows in top-down order.
4702 '''</summary>
4703 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4704 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4705 Private Function UpdateUpdatedRows(ByVal dataSet As MainDBDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
4706 Dim result As Integer = 0
4707 If (Not (Me._adminTableAdapter) Is Nothing) Then
4708 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Admin.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
4709 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
4710 If ((Not (updatedRows) Is Nothing) _
4711 AndAlso (0 < updatedRows.Length)) Then
4712 result = (result + Me._adminTableAdapter.Update(updatedRows))
4713 allChangedRows.AddRange(updatedRows)
4714 End If
4715 End If
4716 If (Not (Me._studentTableAdapter) Is Nothing) Then
4717 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
4718 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
4719 If ((Not (updatedRows) Is Nothing) _
4720 AndAlso (0 < updatedRows.Length)) Then
4721 result = (result + Me._studentTableAdapter.Update(updatedRows))
4722 allChangedRows.AddRange(updatedRows)
4723 End If
4724 End If
4725 If (Not (Me._quesTableAdapter) Is Nothing) Then
4726 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Ques.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
4727 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
4728 If ((Not (updatedRows) Is Nothing) _
4729 AndAlso (0 < updatedRows.Length)) Then
4730 result = (result + Me._quesTableAdapter.Update(updatedRows))
4731 allChangedRows.AddRange(updatedRows)
4732 End If
4733 End If
4734 If (Not (Me._resultTableAdapter) Is Nothing) Then
4735 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Result.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
4736 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
4737 If ((Not (updatedRows) Is Nothing) _
4738 AndAlso (0 < updatedRows.Length)) Then
4739 result = (result + Me._resultTableAdapter.Update(updatedRows))
4740 allChangedRows.AddRange(updatedRows)
4741 End If
4742 End If
4743 Return result
4744 End Function
4745
4746 '''<summary>
4747 '''Insert rows in top-down order.
4748 '''</summary>
4749 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4750 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4751 Private Function UpdateInsertedRows(ByVal dataSet As MainDBDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
4752 Dim result As Integer = 0
4753 If (Not (Me._adminTableAdapter) Is Nothing) Then
4754 Dim addedRows() As Global.System.Data.DataRow = dataSet.Admin.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
4755 If ((Not (addedRows) Is Nothing) _
4756 AndAlso (0 < addedRows.Length)) Then
4757 result = (result + Me._adminTableAdapter.Update(addedRows))
4758 allAddedRows.AddRange(addedRows)
4759 End If
4760 End If
4761 If (Not (Me._studentTableAdapter) Is Nothing) Then
4762 Dim addedRows() As Global.System.Data.DataRow = dataSet.Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
4763 If ((Not (addedRows) Is Nothing) _
4764 AndAlso (0 < addedRows.Length)) Then
4765 result = (result + Me._studentTableAdapter.Update(addedRows))
4766 allAddedRows.AddRange(addedRows)
4767 End If
4768 End If
4769 If (Not (Me._quesTableAdapter) Is Nothing) Then
4770 Dim addedRows() As Global.System.Data.DataRow = dataSet.Ques.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
4771 If ((Not (addedRows) Is Nothing) _
4772 AndAlso (0 < addedRows.Length)) Then
4773 result = (result + Me._quesTableAdapter.Update(addedRows))
4774 allAddedRows.AddRange(addedRows)
4775 End If
4776 End If
4777 If (Not (Me._resultTableAdapter) Is Nothing) Then
4778 Dim addedRows() As Global.System.Data.DataRow = dataSet.Result.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
4779 If ((Not (addedRows) Is Nothing) _
4780 AndAlso (0 < addedRows.Length)) Then
4781 result = (result + Me._resultTableAdapter.Update(addedRows))
4782 allAddedRows.AddRange(addedRows)
4783 End If
4784 End If
4785 Return result
4786 End Function
4787
4788 '''<summary>
4789 '''Delete rows in bottom-up order.
4790 '''</summary>
4791 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4792 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4793 Private Function UpdateDeletedRows(ByVal dataSet As MainDBDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
4794 Dim result As Integer = 0
4795 If (Not (Me._resultTableAdapter) Is Nothing) Then
4796 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Result.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
4797 If ((Not (deletedRows) Is Nothing) _
4798 AndAlso (0 < deletedRows.Length)) Then
4799 result = (result + Me._resultTableAdapter.Update(deletedRows))
4800 allChangedRows.AddRange(deletedRows)
4801 End If
4802 End If
4803 If (Not (Me._quesTableAdapter) Is Nothing) Then
4804 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Ques.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
4805 If ((Not (deletedRows) Is Nothing) _
4806 AndAlso (0 < deletedRows.Length)) Then
4807 result = (result + Me._quesTableAdapter.Update(deletedRows))
4808 allChangedRows.AddRange(deletedRows)
4809 End If
4810 End If
4811 If (Not (Me._studentTableAdapter) Is Nothing) Then
4812 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Student.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
4813 If ((Not (deletedRows) Is Nothing) _
4814 AndAlso (0 < deletedRows.Length)) Then
4815 result = (result + Me._studentTableAdapter.Update(deletedRows))
4816 allChangedRows.AddRange(deletedRows)
4817 End If
4818 End If
4819 If (Not (Me._adminTableAdapter) Is Nothing) Then
4820 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Admin.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
4821 If ((Not (deletedRows) Is Nothing) _
4822 AndAlso (0 < deletedRows.Length)) Then
4823 result = (result + Me._adminTableAdapter.Update(deletedRows))
4824 allChangedRows.AddRange(deletedRows)
4825 End If
4826 End If
4827 Return result
4828 End Function
4829
4830 '''<summary>
4831 '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
4832 '''</summary>
4833 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4834 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4835 Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
4836 If ((updatedRows Is Nothing) _
4837 OrElse (updatedRows.Length < 1)) Then
4838 Return updatedRows
4839 End If
4840 If ((allAddedRows Is Nothing) _
4841 OrElse (allAddedRows.Count < 1)) Then
4842 Return updatedRows
4843 End If
4844 Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
4845 Dim i As Integer = 0
4846 Do While (i < updatedRows.Length)
4847 Dim row As Global.System.Data.DataRow = updatedRows(i)
4848 If (allAddedRows.Contains(row) = false) Then
4849 realUpdatedRows.Add(row)
4850 End If
4851 i = (i + 1)
4852 Loop
4853 Return realUpdatedRows.ToArray
4854 End Function
4855
4856 '''<summary>
4857 '''Update all changes to the dataset.
4858 '''</summary>
4859 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4860 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4861 Public Overridable Function UpdateAll(ByVal dataSet As MainDBDataSet) As Integer
4862 If (dataSet Is Nothing) Then
4863 Throw New Global.System.ArgumentNullException("dataSet")
4864 End If
4865 If (dataSet.HasChanges = false) Then
4866 Return 0
4867 End If
4868 If ((Not (Me._adminTableAdapter) Is Nothing) _
4869 AndAlso (Me.MatchTableAdapterConnection(Me._adminTableAdapter.Connection) = false)) Then
4870 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
4871 "tring.")
4872 End If
4873 If ((Not (Me._studentTableAdapter) Is Nothing) _
4874 AndAlso (Me.MatchTableAdapterConnection(Me._studentTableAdapter.Connection) = false)) Then
4875 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
4876 "tring.")
4877 End If
4878 If ((Not (Me._quesTableAdapter) Is Nothing) _
4879 AndAlso (Me.MatchTableAdapterConnection(Me._quesTableAdapter.Connection) = false)) Then
4880 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
4881 "tring.")
4882 End If
4883 If ((Not (Me._resultTableAdapter) Is Nothing) _
4884 AndAlso (Me.MatchTableAdapterConnection(Me._resultTableAdapter.Connection) = false)) Then
4885 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
4886 "tring.")
4887 End If
4888 Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
4889 If (workConnection Is Nothing) Then
4890 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _
4891 "ger TableAdapter property to a valid TableAdapter instance.")
4892 End If
4893 Dim workConnOpened As Boolean = false
4894 If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
4895 = Global.System.Data.ConnectionState.Broken) Then
4896 workConnection.Close
4897 End If
4898 If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
4899 workConnection.Open
4900 workConnOpened = true
4901 End If
4902 Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
4903 If (workTransaction Is Nothing) Then
4904 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _
4905 "ctions or the current state is not allowing the transaction to begin.")
4906 End If
4907 Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
4908 Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
4909 Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
4910 Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
4911 Dim result As Integer = 0
4912 Dim backupDataSet As Global.System.Data.DataSet = Nothing
4913 If Me.BackupDataSetBeforeUpdate Then
4914 backupDataSet = New Global.System.Data.DataSet()
4915 backupDataSet.Merge(dataSet)
4916 End If
4917 Try
4918 '---- Prepare for update -----------
4919 '
4920 If (Not (Me._adminTableAdapter) Is Nothing) Then
4921 revertConnections.Add(Me._adminTableAdapter, Me._adminTableAdapter.Connection)
4922 Me._adminTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
4923 Me._adminTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
4924 If Me._adminTableAdapter.Adapter.AcceptChangesDuringUpdate Then
4925 Me._adminTableAdapter.Adapter.AcceptChangesDuringUpdate = false
4926 adaptersWithAcceptChangesDuringUpdate.Add(Me._adminTableAdapter.Adapter)
4927 End If
4928 End If
4929 If (Not (Me._studentTableAdapter) Is Nothing) Then
4930 revertConnections.Add(Me._studentTableAdapter, Me._studentTableAdapter.Connection)
4931 Me._studentTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
4932 Me._studentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
4933 If Me._studentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
4934 Me._studentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
4935 adaptersWithAcceptChangesDuringUpdate.Add(Me._studentTableAdapter.Adapter)
4936 End If
4937 End If
4938 If (Not (Me._quesTableAdapter) Is Nothing) Then
4939 revertConnections.Add(Me._quesTableAdapter, Me._quesTableAdapter.Connection)
4940 Me._quesTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
4941 Me._quesTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
4942 If Me._quesTableAdapter.Adapter.AcceptChangesDuringUpdate Then
4943 Me._quesTableAdapter.Adapter.AcceptChangesDuringUpdate = false
4944 adaptersWithAcceptChangesDuringUpdate.Add(Me._quesTableAdapter.Adapter)
4945 End If
4946 End If
4947 If (Not (Me._resultTableAdapter) Is Nothing) Then
4948 revertConnections.Add(Me._resultTableAdapter, Me._resultTableAdapter.Connection)
4949 Me._resultTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection)
4950 Me._resultTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction)
4951 If Me._resultTableAdapter.Adapter.AcceptChangesDuringUpdate Then
4952 Me._resultTableAdapter.Adapter.AcceptChangesDuringUpdate = false
4953 adaptersWithAcceptChangesDuringUpdate.Add(Me._resultTableAdapter.Adapter)
4954 End If
4955 End If
4956 '
4957 '---- Perform updates -----------
4958 '
4959 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
4960 result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
4961 result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
4962 Else
4963 result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
4964 result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
4965 End If
4966 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
4967 '
4968 '---- Commit updates -----------
4969 '
4970 workTransaction.Commit
4971 If (0 < allAddedRows.Count) Then
4972 Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
4973 allAddedRows.CopyTo(rows)
4974 Dim i As Integer = 0
4975 Do While (i < rows.Length)
4976 Dim row As Global.System.Data.DataRow = rows(i)
4977 row.AcceptChanges
4978 i = (i + 1)
4979 Loop
4980 End If
4981 If (0 < allChangedRows.Count) Then
4982 Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
4983 allChangedRows.CopyTo(rows)
4984 Dim i As Integer = 0
4985 Do While (i < rows.Length)
4986 Dim row As Global.System.Data.DataRow = rows(i)
4987 row.AcceptChanges
4988 i = (i + 1)
4989 Loop
4990 End If
4991 Catch ex As Global.System.Exception
4992 workTransaction.Rollback
4993 '---- Restore the dataset -----------
4994 If Me.BackupDataSetBeforeUpdate Then
4995 Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
4996 dataSet.Clear
4997 dataSet.Merge(backupDataSet)
4998 Else
4999 If (0 < allAddedRows.Count) Then
5000 Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
5001 allAddedRows.CopyTo(rows)
5002 Dim i As Integer = 0
5003 Do While (i < rows.Length)
5004 Dim row As Global.System.Data.DataRow = rows(i)
5005 row.AcceptChanges
5006 row.SetAdded
5007 i = (i + 1)
5008 Loop
5009 End If
5010 End If
5011 Throw ex
5012 Finally
5013 If workConnOpened Then
5014 workConnection.Close
5015 End If
5016 If (Not (Me._adminTableAdapter) Is Nothing) Then
5017 Me._adminTableAdapter.Connection = CType(revertConnections(Me._adminTableAdapter),Global.System.Data.OleDb.OleDbConnection)
5018 Me._adminTableAdapter.Transaction = Nothing
5019 End If
5020 If (Not (Me._studentTableAdapter) Is Nothing) Then
5021 Me._studentTableAdapter.Connection = CType(revertConnections(Me._studentTableAdapter),Global.System.Data.OleDb.OleDbConnection)
5022 Me._studentTableAdapter.Transaction = Nothing
5023 End If
5024 If (Not (Me._quesTableAdapter) Is Nothing) Then
5025 Me._quesTableAdapter.Connection = CType(revertConnections(Me._quesTableAdapter),Global.System.Data.OleDb.OleDbConnection)
5026 Me._quesTableAdapter.Transaction = Nothing
5027 End If
5028 If (Not (Me._resultTableAdapter) Is Nothing) Then
5029 Me._resultTableAdapter.Connection = CType(revertConnections(Me._resultTableAdapter),Global.System.Data.OleDb.OleDbConnection)
5030 Me._resultTableAdapter.Transaction = Nothing
5031 End If
5032 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
5033 Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
5034 adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
5035 Dim i As Integer = 0
5036 Do While (i < adapters.Length)
5037 Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
5038 adapter.AcceptChangesDuringUpdate = true
5039 i = (i + 1)
5040 Loop
5041 End If
5042 End Try
5043 Return result
5044 End Function
5045
5046 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5047 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5048 Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
5049 Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
5050 End Sub
5051
5052 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5053 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5054 Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
5055 If (Not (Me._connection) Is Nothing) Then
5056 Return true
5057 End If
5058 If ((Me.Connection Is Nothing) _
5059 OrElse (inputConnection Is Nothing)) Then
5060 Return true
5061 End If
5062 If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
5063 Return true
5064 End If
5065 Return false
5066 End Function
5067
5068 '''<summary>
5069 '''Update Order Option
5070 '''</summary>
5071 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5072 Public Enum UpdateOrderOption
5073
5074 InsertUpdateDelete = 0
5075
5076 UpdateInsertDelete = 1
5077 End Enum
5078
5079 '''<summary>
5080 '''Used to sort self-referenced table's rows
5081 '''</summary>
5082 <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5083 Private Class SelfReferenceComparer
5084 Inherits Object
5085 Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
5086
5087 Private _relation As Global.System.Data.DataRelation
5088
5089 Private _childFirst As Integer
5090
5091 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5092 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5093 Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
5094 MyBase.New
5095 Me._relation = relation
5096 If childFirst Then
5097 Me._childFirst = -1
5098 Else
5099 Me._childFirst = 1
5100 End If
5101 End Sub
5102
5103 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5104 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5105 Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
5106 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
5107 Dim root As Global.System.Data.DataRow = row
5108 distance = 0
5109
5110 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
5111 traversedRows(row) = row
5112
5113 Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
5114
5115 Do While ((Not (parent) Is Nothing) _
5116 AndAlso (traversedRows.ContainsKey(parent) = false))
5117 distance = (distance + 1)
5118 root = parent
5119 traversedRows(parent) = parent
5120 parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
5121
5122 Loop
5123
5124 If (distance = 0) Then
5125 traversedRows.Clear
5126 traversedRows(row) = row
5127 parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
5128
5129 Do While ((Not (parent) Is Nothing) _
5130 AndAlso (traversedRows.ContainsKey(parent) = false))
5131 distance = (distance + 1)
5132 root = parent
5133 traversedRows(parent) = parent
5134 parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
5135
5136 Loop
5137 End If
5138
5139 Return root
5140 End Function
5141
5142 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5143 Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5144 Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
5145 If Object.ReferenceEquals(row1, row2) Then
5146 Return 0
5147 End If
5148 If (row1 Is Nothing) Then
5149 Return -1
5150 End If
5151 If (row2 Is Nothing) Then
5152 Return 1
5153 End If
5154
5155 Dim distance1 As Integer = 0
5156 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
5157
5158 Dim distance2 As Integer = 0
5159 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
5160
5161 If Object.ReferenceEquals(root1, root2) Then
5162 Return (Me._childFirst * distance1.CompareTo(distance2))
5163 Else
5164 Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
5165 AndAlso (Not (root2.Table) Is Nothing)))
5166 If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
5167 Return -1
5168 Else
5169 Return 1
5170 End If
5171 End If
5172 End Function
5173 End Class
5174 End Class
5175 End Namespace
